102 

103 

104 

105 

106 

107 

108 
103 
110 
111 


112 

it 

BB 

, pa-tire 

113 

it 

BB 

patter 

114 

i ( 

BB 

sentr m 

115 

!( 

BB 

sent r\j 

116 

It 

BB 

sentr\i 

117 

1C 

BB 

sentry 

118 

it 

BB 

senirr\i 

113 

I C 

BB 

sentry 

120 

! ( 

BE 

sentry 

121 

It 

BB 

sentry 

122 

! t 

BB 

sentry 

123 

|C 

BB 

sentry 

124 

i t 

BB 

sentry 

125 

i ( 

BB 

sentry 

126 

j t 

BB 

sentry 

127 

! ( 

BB 

sentry 

128 

! ( 

BB 

sentry 

123 

it 

BB 

sentry 

130 

It 

BB 

sentry 

131 

It 

BB 

sentry 

132 

j C 

BB 

sentry 


-1 .33 

134 

135 

136 
138 

140 

141 

142 

143 

144 

145 


BASEBALL MASTER LOADER SCREEN 


DATE 


MASTER 
MASTER 
MASTER 
MASTER 
BB patterns 


LOADER 

LOADER 

LOADER 

LOADER 


SCREEN 

SCREEN 

SCREEN 

SCREEN 


#2 

#3 

#4 

#5 


BB 

BB 

BB 

BB 


patterns 

patterns 

patterns 

patterns 


i equates -pattern index # 8t magic— ) 
definitions CHKSCRTI ME , BASETABLE ) 
definitions RESETRUNNERS ) 



defined 
defined 
defined 
defined 
defined 
defined 
defined 
defined 
defined 
definitions 
definitions 
definitions 
definitions 
definitions 
definitions 
definitions 
loop SENTRY 


routines 
routines 
routines 
routines 
routines 
routines 
routines 
routines 
routines 


) 


CHKCAUGHT ) 


THROHANIM ) 




CREDARROU MLINN ) 
THROWEALL , PTTBL 


STARTMUSIC 


) < 


BATHIT , 
BUTTONCHECK ) 
pitch control ) 
INSCN , PP ) 
DOGOVER > 

TF ) 

TF ) 

TFI ELD , STRTBBALL 
TERSECHK ) 


SETOFTBL ) 


PLRSELCT ) 


J3E game star1 uail. 


GS. ) 

BASEBALL SCORES 4-3, 10-6/ 5-4/ etc. ) EASE @ HEX 
FOUL/CHEERS,BAT CRACK ) HEX STABLE FOULSCORE 0 VIBS 
CROUD CHEERS 8c TAKE ME O-T-T-B-G. ) HEX 
BASEBALL SOUNDS , SIREN CANNON ) HEX 
SAFE , OUT , ) HEX 


MUSIC PROCESSOR 
NOTE CONSTANTS 


1 


MUSIC 

MUSIC 

MUSIC 


PROCESSOR 

PROCESSOR 

PROCESSOR 


COMANDS ) BASE® HEX 

IN ASSEMBLY ) 

AS A CODED SUBROUTINE 
CALLS ) 


146 

K, 

BB 

music calls ) 



147 

It 

BB 

Kii: sector constants ) 


148 

It 

BB 

constants ) 



143 

It 

BB 

variab1es ) 



150 

j t 

BB 

vdriab1es) 



151 

! t 

BB 

variab1es ) 



152 

11 

BB 

variab1es ) 



153 

11 

infield logic loop 

LDINFLDPA > ) 


154 

! t 

BB 

i nf i e 1 d 1 og i c 

HITDST , FHTBL , GHTBL 

, HTEL 

155 

It 

BB 

infield action b\j 

sec-tor ) 


156 

11 

BB 

infield action b>$ 

sector GRNDR5T ABLE 

) 

157 

11 

BB 

infield action b\j 

sector GRNDRACTI ON 

) 

158 

11 

EE 

infield action 

GRNDRHIT , CHKCN ) 


153 

11 

BE 

fence hit: check 

does homer set up HOMERCHK 

160 

11 

BE 

infield action > 



161 

11 

BB 

infield action 

Outflow IT ) 


162 

11 

BE 

i nf i e 1 d act: i on 

INLGG ) 


163 

11 

BB 

h i *t run and -throw 

for outfield f1 m ) 


164 

It 

BB 

h i *t run and “throw 

for ou-tfield flv, TAKEOFF ) 

165 

11 

BE 

h i-t run and throw 

for infield grounder 

) 

166 

11 

BB 

hit: run and throw 

for infield grounder 

) 

167 

11 

BB 

h i i: run and “throw 

for infield grounder 

) 

168 

11 

BB 

who's on which base WHONBASEODBS ) 



HMHTBL ) 






1 69 \ C 
1 70 | C 
171 ,'C 

173 ! ( 

174 jC 
1 75 i C 
176!( 
1 77 ! C 
178 1C 
1 73 i ( 

180 ! C 

181 |( 
182 ! C 
1 83 1 ( 
1 84 ( 
186 ! C 
1871C 
188IC 
1 89 ! C 
190IC 
191 ! C 
1 92 i ( 
1931C 
1 94 ! C 
1 95 ! C 
1 96 i C 
1 97 ! C 

198 !C 

199 it 

200 IC 

201 i C 

202 !( 
203 |C 
211 

21 2 ! ( 
21 3 i C 
214 !C 
215! < 
21 6 i C 

225 j C 

226 !C 

227 !C 

228 !C 

229 i C 

230 1C 

231 ! ( 

232 !( 

233 It 

234 j < 

235 jC 

236 !( 

237 I ( 

238 !< 

239 |( 

240 ! < 

241 ! C 

242 !< 

243 ! ( 

244 1 C 

245 I ( 

246 I ( 

247 i ( 

248 ! i 

249 ! C 

250 !( 

251 ! C 


BB 

BB 

BB 

BB 

BB 

BB 

BE 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BE 

BE 

BB 

BB 

BB 

BB 

BB 

BB 

BE 

BB 

BB 

BE 

BB 

BB 

BE 

BB 

BE 

BB 

BB 

BB 

BB 

BB 

BE 

BE 

BB 

BB 

BB 

EE 

BB 

BB 

BE 

VGS 

VGS 

VGS 

VGS 

VGS 

VGS 

VGS 

VGS 

VGS 

VGS 


who J s on which base WHBODDS ) 
h i * 1 og i c ) 

hi* logic SWINGTABLE > 
outfield computer control CMPQF ) 

tractor ball logic TBALLPRC ) 

outfield tractor ball running algorithm ) 
out fielder animation logic ) 
pitching algorithm TBALLPITCH ) 

short subroutines string routines ) 
short subroutines string routines ) 

BALLERASE , DQHOMER , DOEH0MER ) 
string routines 0UTTIME ) 

short subroutines STRIKETIME r BALLTIME r FOULTIME 

short subroutines SCOREME , STTBL , STETBL ) 

string routines STRINGGO t STRINGPRC ) 

pattern tables ) 

pattern tables ) 

pattern tables ) 

pattern table matrix PATTERNS ) 
op codes for plavaction defined 

defined 
defined 
defined ) 
defined 
defined 
defined 
defined ) 
defined ) 

OFMOTI ON , 

OPCODECHK 

ANMSEQLOAD , PACTLOAD 
PATFETCH ) 

PLAYACT ) 

intia 1 isation SETFDST ) 

intia 1 isation LSETTFCOOR ) 

intia 1isation RETPA § SETTFPA ) 


op 

op 

op 

op 

OP 

op 

op 

op 


codes 
codes 
codes 
codes 
codes 
codes 
codes 
codes 

P1a^action 
P 1 a>jact i on 
P1a^action 
P 1 a\jac* i on 
p 1 a^ac* i on 
inning placer 
i nn i ng p 1 a\jer 
inning placer 


f or 
f or 
f or 
f or 
for 
f or 
f or 
for 
op 


P 1 a\jac* i on 
P 1a^ac*ion 
p 1 a\jac* i on 
p 1 a a ction 
pla^action 
p 1a^action 
p 1 a\jac* i on 
p 1a^action 
code 
process 
process 
process 
process 


BSRTBL 
THWANMSET 
BLDST > 


DEACTIVATE ) 
) 


FLDDST 

OFFDST 

RUNDST 


) 


) 


) 


WAITTHRW , BLM0TION , OFTBL ) 
, LOADANM ) 

) 


action 
action 
action 
action 
act i on 
destination 
destination 


) 


inning placer intia1isation 
pla^action loader ) 
vectors ) 

tab 1es 
tab 1es 
tab 1es 
tab 1es 
tab 1es 
de 1 ta 


2ER0RAM 


SPEC0RAM 


LSETTF ) 


p 1 a\j 
p 1 a\j 
p 1 a^ 
p 1 a>* 
plavj 


-runner s- 


fieldlogic -infielders- ) 
fieldlogic -infielders- ) 
single placer pitches ) 
calculation DSTCALC ) 


de 1 ta 

set destination register 
short subroutines COMPHL 
subroutines 
subroutines 
subroutines 
subroutines 
subroutines 
subroutines 
subroutines 
routines 
routines 
routines 
routines 
routines 

routines cpost 

routines cpost 

routines CPOST 

routines NPOST 

routines BCD* 

VWRITE ) 


short 
short 
short 
short 
short 
short 
short 
write 
write 
w rite 
write 
w rite 
character 
character 
character 
character 
character 


BONE B2ER0 WUPG0 ) 

, WALKOVER ) 

WAIT ) 


ca1cu1 ation ) 

from vector ) 

COMPDE TIMEDCR 
DIVHLEY4 INDEXW EX ) 

AUT0R1 ect. , LVRSTAT 
MULTHLBY4 , KILLOF , 

INFLDACT OUTFLDACT ALLFLDACT CMTALL ) 
BLERASE , WUPWRT , CHGS , DWAIT ) 
FLSMT0N FL5HT0FF FLSHWUP DOCHGS ) 
CHKFLSHSTAY ) 
relabs * magic equates ) 

relo/iyr ) 
wrvfre ) 

wr i-tep' , WRITE ) 

WRITER ) 


) 

con 9 1. 

, SPGST 
) 

p BCD*! 


3DRGP > 


BE vector write 







VERASE ) 


252 

253 

254 

255 
257 
25S 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 
280 
281 
282 

283 

284 

285 

286 

287 

288 

290 

291 

292 

293 

294 

295 

296 


lnterupt vector erase 


( BB 

< BB iTvterrup-t 
C BB interrupt 
C BB interrupt 
t BE inTerrup-t 
( BB interrupt: 

( BB interrupt 
( BB interrupt ) 

( BB interrupt 
( BB interrupt 
( BB interrupt: ) 

( BB inlrerupl: main 
C BB interupt main 


CHKGROUNDER ) 

TIMER ) 

PERSPECTIVE ) 
VECTOR ) 

BATH ITCHK ) 
BATWRITE , BATSWING 


V 


OFBLCHK 

BLPOSCHK 

WINTEL 


) 


INTERRUPT ) 


) 


C main vectoringi does 3 vectors given IX-starting vect ) 


C 


< 


BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 

BB 


interupt ball and bat: process ) 
interrupt ) 

interrupt call INTERRUPTS© 

■Field -table dugout pattern 


1ine vector 
1 ine vector 
field wr i tre 
field write 
field wr i tre 


C PIXEL TABLES ) 


< 


routines 
routines 
ma i n 
ma i n 
) 

BASE® HEX 
) 

BASE® 


VECTOR GENERATOR 
VECTOR GENERATOR ) 
VECTOR GENERATOR ) 
VECTOR GEN ) 

VECTOR GEN - WRITE 
COIN READING ROUTINE 
BB coin routine 
BB coin routine 


CNLINE , 
RECTAN , 
FI ELDWRT.: 
FL ) 


DECIMAL 


, HMRINT 
cn1ine ) 
DLINE ) 
OUTLINE 
, SUP ) 


SI0 


SU ) 


POINT AND 
) HEX 

CHKC0IN1 
CHKC0IN1 


TEST ) 


I/O PORT DEFINES ) BASE® HEX 
INTERRUPT ROUTINES ) HEX 
Interrupt rout: i nes ) 

VGS screen handeling verbs 
VGS NDUP ) 

HIGH SPEED RANDOM NUMBER ROUTINE ) 

NUMBER TABLE FOR STRING DISPLAY ROUTINES 


I NTCOMMERCIAL 


FILL 


SCRERASE ) 


297 

! C 

CHARACTER 

PATTERN TABLE 

FOR 

DISPLAY 

) 

298 

1 < 

CHARACTER 

PATTERN TABLE 

CONT 

. 

) 



p CTfi CJ 

! C 

VGS-SMALL 

FONT 

CHARACTER 

SET 

3 

BY 

5 

) 

300 

n f 

i> " 

VGS-SHALL 

F 0 NT 

CHARACTER 

SET 

3 

BY 

5 

) 

3 0 i 

sc 

V r~ 5 * ~ 5 ^ p ji_ 

F 0 N 

CHARACTER 

SET 

3 

BY 

5 

) 

302 

SC 

VGS-3MALL 

FONT 

CHARACTER 

SET 

3 

BY 

5 

) 

303 

A ( 

FI \ 

V G S—5 M A L L 

FONT 

CHARACTER 

SET 

3 

BY 

5 

) 

304 

A if 

s '"wii «■ i: © m y © i 

r" ibj S: ) 







305 

a 

B E sentry 

string routines D P C N C H K G N C N T 

309 

A f 

a - 

B B 5 ' © rn *t r- ^ 

3 * *t r- i. n qs routine 

s INS' 

TRC 

) 



) HEX 





-B1 ock 


102 - 


0!( BASEBALL MASTER LOADER 

SCREEN DATE 

11/19779 

1 I ( 

■ 

* 

BASE! 

} BASE 

! { J 

} { : BASE® > 

BASE @ { i 

2 I CR 

II 

system 

verbs" 


304 LOAD 


3 ICR 

II 

• 

Vg£ " 



290 LOAD 


4 ICR 

H 

pair-terns H 


107 LOAD 


5 1 — > 







6 ICR 

il 

HERE-’ 

HERE H 

. HEX 

8241 DP ! DECIMAL 

7 | CR 
SI iS 

3 1 

ll 

BASE- 

" BASE? 

CR . " 

s\isave air 310 

load 103 


10 ! 

11 i 
12 ! 

13 ! 

14 ! 
15| 

+- 

0 


C 


-Block 103- 

MASTER LOADER SCREEN 


#2 ) 


1 

ICR 


il 

music " 

146 

LOAD 

2 

! CR 


ll 

variables " 147 LOAD 

216 

LOAD 

3 

! CR 


Dl 

pattern matrix " 

186 

LOAD 

4 

1 CR 


ii 

parameter control" 

276 

LOAD 

5 

! CR 


ii 

vgs write routines" 

241 

LOAD 

6 

ICR 


ii 

pla^action -tables " 

225 

LOAD 

7 

i CR 


ii 

short: subroutines " 

233 

LOAD 

8 

! CR 


ii 

dest calculation " 

230 

LOAD 

3 

! CR 


!! 

criip outf I d control” 

173 

LOAD 

10 

ICR 


II 

line vector " 

280 

LOAD 

1 1 

! CR 


II 

field generartor " 

270 

LOAD 

12 

I CR 


II 

who J s on base " 

168 

LOAD 

13 

! CR 


II 

run -throw logic " 

163 

LOAD 

14 

j CR 


II 

hit: logic " 

170 

LOAD 

15 

j — 

> 






+- 

— 

— 

-Block 104-— 

— 


0 

\ < 1 

MASTER LOADER SCREEN #3 

) 


1 

ICR 

• 

Ii 

sirring process " 

178 

LOAD 

2 

; — 

> 





3 

1 CR 

. 

II 

BASE- " BASE? CR 

s\fsave air 


4 

5 

6 

7 

8 

Cjj 

1 0 i 

r l it i 
12 1 
'1 3 ! 
14 ! 


} 


" CR 


" CR 













+-Block 105-- 

01C MASTER LOADER SCREEN #4 


1 

1 

1 

CR . ■ 

tractor 

ball logic" 

174 

LOAD 

2 

1 

1 

CR . ° 

infie1d 

action " 

1 53 

LOAD 

3 

1 

1 

CR . " 

pldMaction process 

" 215 

LOAD 

4 

1 

1 

— > 





5 

1 

1 

CR . " 

BASE- * 

BASE? CR ." 

s^save ai: 


6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

0 


9 

10 
1 1 
12 

13 

14 

15 

0 

1 


450 load 106 


-—-Block 106—-— 

( MASTER LOADER SCREEN #5 ) 


1 ICR 

1! 

coin routine® 


2S6 LOAD 

2 ! CR 

II 

interupt " 


253 LOAD 

3 | HEX 

8000 DP ! DECIMAL 


4 | CR 

n 

sentry " 


114 LOAD 

5 I jS 





6 |CR 

■I 

BASE- ' BASE? 

CR 

." sMsave at 500 " 

7 | CR 

ii 



***** all done ***** 

8 | CR 

ii 

HERE- ” HERE 

H . 

CR . JS 


-g 1 ock 

C BE pair-terns ) 
BASE® HEX 


107- 


2 

l{ 

8STF 

> B 

, B, B 

, B , B 

i 

B , 

B , 

3 

!{ 

12STF 

} 

8STF B 

; B f E 

/ 

B , 

{ 

4 

1 { 

14STF 

} 

B , B , 

12STF 

{ 

jf 

} 

5 

l{ 

16STF 

> 

E, B , 

14STF 

{ 


} 

6 

!{ 

1SSTF 

} 

B, B, 

16STF 

< 

jf 

> 

7 

1 { 

24STF 

} 

12STF 

12STF 

{ 

/ 

} 

8 

J / 

0 1 

26STF 

} 

12STF 

14STF 

{ 

! 

} 

3 

’! / 

1 \ 

28STF 

} 

14STF 

14STF 

{ 

Jf 

} 

, ® 

S 

:i -I « 

'D'3C , T!r 

hl. o a r 

} 

1 a Sir 

14STF 


jf 

} 

, 1 

j LABLE N 0B 0 D 

0 0 2 

1 0 0 

B , 

B 

* E 


"I 

i 2 
1 3 
1 4 
15 


LABLE BALLPAT 0 
L A B L E 


B r B J B f 

C® 0 C0 2 2 0 ® B, E, B, B, E , B, I 
B / B/ Bj B/ 


V P T R I 5 0 C 0 E 0 F ® F 8 B 
LABLE BNTRI F8 7S 3B IS SB, B, B, B, B , 
L A B LE 1MRK F S B, 7 ® B, 20 B, — > 


■ CR 


/ B, 












m co -sj m cn & hi to ^ © oi^uw**©u)CB%j(ntn^o)w**o cn co to *-* «s» cs c* ■‘-.I or> cn co n 


108 


+--B1 ode 


!< BB 

pair ™ter ns 

) 






! LABLE 

TUP1M 

C0 1 80 ID 80 D 

80 D 80 F 

90 F 


A0 F C0 F 


80 FF 

80 F 0 7 0 7 C 

267 28STF 





! LABLE 

TUP2M 

0 

3 0 32 0 12 0 

IE 80 IE 0 

IF 

0 

FE 0 

IE 


0 C 0 

C 

A 2 5 6 24STF 






I LABLE 

TUP3M 

0 

6 0 34 0 1C 0 

1C 0 IB 0 

FE 0 


1C 0 8 



8 2 4 

5 

18STF B, B, 






[LABLE 

TUP4M 

0 

6C 0 38 0 38 

0 FC 0 38 0 

10 

6 

2 3 4 

16STF 

[LABLE 

TUP1F 

0 

1C © 98 0 D8 

0 FS 0 78 © 

78 

0 

79 0 

7A 


0 7C 0 

78 0 B0 0 B0 0 

80 0 8@ E 

2 7 

1 

32STF 


[ LABLE 

TUP2F 

0 

IS 0 90 0 D0 

0 70 0 70 0 

74 

0 

78 0 

70 


0 B0 0 


E© 0 80 B 2 5 

1 26STF 





[LABLE 

TUP3F 

0 

30 0 A0 © E0 

0 60 0 60 0 

68 

0 

F0 



0 A0 0 

80 9 2 4 1 1SSTF B, E, E, 

B, 




[ LABLE 

TUP4F 

0 

30 0 A0 0 E© 

0 6 0 F0 0 

A0 0 


80 



7 2 3 

1 

18STF —> 







+-Block 109- 

|C BB patterns ) 

! { : 20STF 18STF > B, B, { ; > 


[LABLE 

RUP3M 

0 

30 

0 

20 

0 

30 

0 

30 

0 

34 

0 

78 

0 

30 

0 10 


S 

2 

4 3 

20STF 











[ LABLE 

RUP4M 

0 

30 

0 

20 

0 

B8 

0 

70 

0 

38 

0 

10 

6 

2 3 

3 16STF 

[LABLE 

RUP0M 

0 

0E 

0 

0C 

0 

©F 

0 

0E 

0 

0E 

0 

0E 

0 

0E 

80 IE 80 IE 


0 IF 0 

IF 

0 

0E 

0 

6 

0 6 

E 

2 

7 

6 

32STF 




[LABLE 

RUF1M 

0 

1C 

© 

IS 

0 

IE 

0 

1C 

0 

1C 

0 

1C 

0 

3C 

0 3D 0 3F 


01E0C0CC264 28STF 


[ LAELE 

RUP2M 0 1C 

0 

18 0 IE 

0 

1C 0 

1 C 

0 

3D 

0 3F 

0 IE 


0 C 0 C A 2 

5 

4 24STF 








[LAELE 

RUP0B C0 8 

0 80 F9 80 

F9 

80 

19 

80 

IF 

0 0F 

0 0E 

[ 0 

8E 0 4E E0 

2F 

0 IE 0 

6 

0 6 

0D 

2 

7 6 

28STF 

B, B, 

[ LAELE 

0NBASE2 0 

33 

0 19 0 

0F 

0 7 

40 

8F 

80 

5F 0 

3F 0 IE 

J_\ 

0 0 C 0 0 C 

0A 

2 5 ©A 

245TF 







+-B 1 ock 110 


a 

a 

a 


■‘I ^ 

111 

12 : 

1 ? i 


( EE patterns ) 

LAELE RUP1E 80 83 0 F3 0 F3 0 1F 0 1E 0 9C 0 5C 80 3F 
01C0C0CB264 24STF B, B, 

LAELE RUP2E 80 83 0 F3 0 FF 0 1E 0 9C 0 5C 80 3F 
0C0C3254 20STF B, B, 

LABLE RUP3B 0 8C 0 ES 0 38 0 30 0 B0 0 7C 0 10 
7243 18STF 

LAELE RUP4B 0 4C 0 68 0 38 0 B0 0 7C 0 1 0 6 2 3 3 16STF 
LAELE CBUP1 0 70 0 E0 0 E0 0 E0 0 E0 0 E0 0 FS 0 E4 
© E4 0 E0 0 60 0 60 C 2 5 1 28STF 
LAELE CBUF2 0 70 ? E0 0 E0 0 E0 0 E0 0 F8 0 E4 
0 E4 0 E0 0 60 0 60 0B 2 5 1 26STF 
LABLE FTTH J D 0 ©E 0 6 0 6 0 7F 0 7F 0 4F 0 0F 0 7F 0 8F 0 7F 
0 S @ S C 2 6 6 28STF 


14iLABLE 0NEASE1 80 31 80 18 80 0C 80 7 80 7 80 8F A0 5F C0 3F 

15! ' 0 IF © 0C 0 0C 0B 2 6 7 26STF —> 













+——-B1 ock 

0 i ( BB patterns 
1|LABLE FUF1B 0 
80 1 80 


111 


IF A0 0F C0 7 80 3 


0 7 


) 

7 0 6 0 86 0 FE 0 FE 10 
1 B 2 5 6 24STF E, B, 

LABLE FUP2B 0 0E 0 8C 0 FC 20 FC 40 IE 80 F 
03039245 18STF B f B, B , B, 

LABLE FUP1M 0 38 0 3© 0 3C 0 38 0 3C 20 3E 40 
8© F070303B253 24STF B, B, 

LABLE FUP2M 0 38 0 30 0 38 20 3C 40 IE 80 F 
0703039243 185TF B, B, B, E, 

LABLE BATMID FF FF FF FF 2 2 0 0 8STF 
LABLE EATU45 0 C0 0 E0 0 70 0 38 0 1C 0 E 0 
70 0 38 0 18 0 D 2 C 0 2SSTF B , 

LABLE BATU30 0 C0 0 F0 0 7C 0 1F C0 7 
9280 18STF B, B, E, B, 

LABLE BATU90 0 C0 0 C0 0 C0 0 C0 0 C0 0 C0 
© C0 B 2 D 0 24STF B, B, —> 

■+-B 1 ock 11 2- 

( BB f pair-terns ) 

LABLE BATB30 6 0 IE 0 7C 0 F0 1 C0 7 0 IF 0 7G 0 F0 0 C0 
9200 18STF B, B, B , B, 

LABLE BATD45 18 0 38 0 70 0 E0 0 C0 1 80 3 
0 38 © 70 © E© 0 C0 D 2 0 0 28STF E, 


11 
12 

13 

14 

15 

0 

1 

2 

3 

4 


B, 

F0 


IF 


7 80 3 C0 1 E0 0 


1 7C 0 IE 0 6 0 


C0 0 C0 0 C0 0 C0 


0 7 
B , 


0 E 0 1C 


LABLE BATD90 0 C© 0 C0 0 C0 0 C0 0 C0 0 C0 0 C0 0 C0 
0 C0 0 C0 0 C0 B 2 0 0 24STF B, B , 

LABLE HOiiEFLATE 0 10 0 38 0 7C 0 FE 0 FE 0 FE 0 FE 
7 2 s® 4 18STF 

LABLE BASEPAT 0 F8 © FS 0 F8 0 F8 4 2 0 4 12STF 
LABLE EASE2PAT 0 F© 0 F0 0 F0 3 2 0 4 8STF B, B , 


LABLE STN1 0 33 0 12 0 
8© 7F 0 3F 0 C 0 


12 0 12 0 IE 40 9E 40 9E 40 9E 
C C 2 G 4 28STF 


LABLE STN2 0 33 0 12 0 12 0 IE 40 9E 40 9E 
80 7F 0 3F 0C0CA254 24STF 
— > 

+—---Block 113- 

C BB pair-tern equates -pattern index # Sc magic— ) 
LABLE STN3 © 6C 0 28 0 28 0 38 0 BA 0 BA 0 7C 0 10 
8243 20STF 
LABLE STN4 0 SC 0 28 
LABLE STNPT C0 ID 80 


0 BA 0 EA © 7C 0 10 6 2 3 3 16STF 
D 80 D 80 D 80 F 9© 4F 90 4F 90 4F 


5 

s 

I 


£© 3F 

C© IF 

© 7 

© 7 C 2 

6 6 28STF 

G 

1 

28 

CONSTANT 

RRUM 

68 

CONSTANT 

LRUN 

”7 

a 

a 

128 

CONSTANT 

RFLD 

168 

CONSTANT 

LFLD 

8 

a 

a 

Z2S 

CONSTANT 

RTRW 

268 

CONSTANT 

LTRW C 2 

3 

8 

3 2 5 

CONSTANT 

RCB 

3 6 8 

CONSTANT 

LCB ( 3 

i © 

I 

4 2 3 

CONSTANT 

ST NO 

528 

CONSTANT 

NBD 

11 

a 

a 

G2S 

CONSTANT 

EAL 7 

28 

CONSTANT 

SCE 

12 

1 

2 H 

CONSTANT 

c jpy 

Ch! -p jO 

C = PTTHW 


t 3 

f 

0 A Z i 

i C~ ROME 

S ©AS 8 

c= 

LONBS 



14!BASE 
•1 5 i 3 


* 










CHKSCRTI ME 


BASETABLE ) 


+- 
0 ! < 
1 
2 

3 

4 

5 

6 
7 
3 
3 

10 
11 
12 

13 

14 

15 

+ 

0 
1 

2 

3 

4 
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6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


0 
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3 

4 
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-Block 114- 

BB sentry def inilrions 
305 LOAD ( stings ) 

BASE® HEX 

LABLE BASETABLE 6000 , 4000 s 
AA00 , 2800 , ( base coor ) 

CODE CHKSCRTI ME ( score process ) DI, 

X FUSHX, HITOF LDA, A ANA, 0< >, IF, FLAYON LHLD, H PUSH, 
POFX, C planar pla^ is on ) VMAGIC R4 D 

A ANA, 


4400 , 2800 , 6000 , 1000 




L CMP, C r4? 
VLENGTH D LXI, D 
ELSE, VMAGIC R1 X 
A XRA, A VUBASE X 
PLYR1UP LDA, A 
ELSE, SC0RE2 H 
M A MOV, 1 ADI, 

- > 

-B1 ock 115- 


LDA j 


< >, IF, DBLFLAG 

DAD, PLAYON SHLD, 
LXIX, < infield 
STX, SCRTIME STA, 
ANA, 0< >, IF, SCORE1 
LXI, 2 D MV I, THEN, 
DAA, A M MOV, D 


LXI , 

0 =, 


THEN, THEN, 
hit ) THEN, 

X 
H 


E A 
IF, 


MOV, 


POPX, El, 

LXI, 1 D MV I 


A MOV, SCORESHOW STA, RET , 


) 


VLENGTH 
VOFW R4 
H MOV, 


STA, 


MV I , 
PSW POP, 


BB sentry definitions RESETRUNNERS ) 

FORWARD RSR2WB FORWARD RSR3WB FORWARD RSR4WB 
CODE RESETRUNNERS C reset: runners tro order of on base 
.ASSEMBLE 4 A MVI, BEGIN, PSW PUSH, 

VWBASE R1 LDA, A ANA, 0< >, IF, VWEASE R2 LDA, A ANA, 

RSR2WB JZ, VWEASE R3 LDA, A ANA, RSR3WB JZ, RSR4WB JMP, 
VMAGIC R1 D LXI, VMAGIC R2 H LXI, VLENGTH B LXI, LDIR, 
LABEL RSR2WB VMAGIC R2 D LXI, VMAGIC R3 H LXI, VLENGTH B 
LDIR, LABEL RSR3WE VMAGIC R3 D LXI, VMAGIC R4 H LXI 
B LXI, LDIR,. LABEL RSR4WB A XRA, VWBASE 
STA, 2800 H LXI, VX R4 SHLD, 

A H MOV, A L MOV, VDX R4 SHLD, VDY R4 SHLD, 

AC00 H LXI, VY R4 SHLD, NOBOD H LXI, VFAT R4 SHLD, 1 A 
VSTATUS R1 STA, VSTATUS R3 STA, VSTATUS R3 STA, 

VSTATUS R4 STA, RUNEPA H LXI, VPLAYACTPC R4 SHLD 
A DCR, 0=, END, ( do 4 tins ) RET, .END —> 

-Block 116- 

( BB sentry defined routines CHKCAUGHT ) 

FORWARD OUTOFFF FORWARD CCLEAVE 
CODE CHKCAUGHT ( caught set: in interupt ) 

.ASSEMBLE WALK LDA, A ANA, RNZ, Y PUSHX, 

THROW STA, CAUGHT STA, TOOFF STA, TOOF STA, 

1 A MVI , NORUN STA, ^--— ^ 

THROWAROUND LDA, A ANA, <0 =, If } 30 
BALLS STA, OFCATCH LDA, AAHaT DI, 

STA, WHOSUP LI YD, OUT OFFF 

GFOUT LDA, A ANA, 0<>, IF, A XRA, OFOUT STA, 
MV I, STRING STA, THEN, BASEBLAT LDA, A C MOV 
FITX, 0=, IF, VOFW Y A LDX, A ANA, 0< >, IF 
IF, 2 A MVI, LVRSTAT CALL, ELSE, 

IF, 


THEN 
LXI , 



X PUSHX 


STA. 


8! THROWANM 
3! PLAYON LI YD, 
10! ELSE, CSAFE A 
Hi VATBS VSTATUS 
■12! VMM VRSTAT " 

13 >| VWBASE T A 
14!LABEL OUT OFFF 


Y 

Y 351 

7N "•v 

, L h / 
if 


TX. 


fa* 


> 

/ C CMP/ ( runner 
out ) 0FFFPA H LXI/ 


ai: 


A MVI, STRIKES 
0< >, IF, 

JMP, THEN, 
p IF, A XRA, 

BASEBLAT LDA, A 
A LDX, A ANA, 
LVRSTAT CALL, 
this base ) =, 

A XRA, 










+-Block 117- 

0i( BE sen+r'j defined routines ) 

li A VWBASE Y STX, H VPLAYACTPCH Y STX, ( run off field ) 

21 L VPLAYACTPCL Y STX, FLDCLR H LXI, M INR, COUT A MVI, 

3! STRING STA, VGO VSTATUS Y RESX, OUTS LDA, 32 CPI, 

4! = , IF, A XRA, THROWANM STA, 

5! X POPX, Y POPX, El, RET, C ret if 3rd out ) THEN, 

Si THEN, THEN, THEN, THEN, 

7! OFCATCH LDA, A ANA, ©<>, IF, OFOUT STA, 

8! CCLEAVE JMP, THEN, C A MOV, C baseblat ) 3 CPI, <>, IF, 

3| FLD0N1ST H LXI, ’ INDEXW CALL, C who has if ) D PUSH, X POPX, 

10j VPT VSTATUS X BITX, 0=, IF, X PUSHX, H POP, WHOTHROWS SHLD, 

111 1 A MVI, THROWANM STA, INAIR STA, DBLPLAY LDA, A ANA, 

121 0< >, IF, ( double pla^ ) A XRA, DBLPLAY STA, VLENGTH D LXI, 

13! Y PUSHX, H POP, D DAD, PLAYON SHLD, 1 A MVI, DBLFLAG STA, 

14! ELSE, ( no dblplasj ) 1 A MVI, THROWAROUND STA, THEN, 

15 1 — > 

+-Block 118- 

@i( EB sentry defined routines ) 

1 1 LABEL CCLEAVE A XRA, OFCATCH STA, X POPX, Y POPX, 

21 El, RET, THEN, THEN, THEN, < throwaround catch ) 


XRA, THROWAROUND STA, 

X POPX, Y POPX, DI, DOVERB STFLD ( reset: fielders ) 
1 FLSHSTAY LDA, A ANA, 0=, IF, 

S! DOVERB WUPWRT ' WUPWRT H LXI, FLSHWHO SHLD, 

71 1 A MVI, FLSHON STA, FLSHTI ME STA, 

81 ELSE, WUPFLSH STA, THEN, 

1 El, RET, .END 


15 1 

+-Block 113- 

©1C BB sentry defined routines THROWANIM ) 

ISSUER CHKATBS C check if active placer a-t base in- A vstatus ) 
2! VACT A BIT, R2, VATBS A BIT, RNZ, E INR, RET, 

31 CODE THROWANIM ( sets up BLDST and placer anim ) 

41 X PUSHX, Y PUSHX, DI, A XRA, WHOTHROWS LIXB, GRNDR STA, 

5 1 THROWANM STA, A VANM* X STX, ( Hero pi Mr del fas ) 

6! A VDXL X STX, A VDXH X STX, A VDYL X STX, A VDYH X STX, 

7! VXH X H LDX, H I NX, H I NX, 

81 VX EL SHLD, VYH X H LDX, VY BL SHLD, ( give ball plyr coor. ) 

S’ 1 THROWAROUND LDA, A ANA, ©< >, IF, ( -thrown -to p-t after pla\j ) 
10 1 VY PT LHLD, VDSTY EL SHLD, VX PT L.DED, 4 B MVI, < bl vel ) 

111 ELSE, ' base throw ) 

12 J PLAYON LI YD, HITOF LDA, A ANA, VWBASE Y A LDX, 0< >, IF, 

13! ( h i f outfield ) A ANA, 0=, IF, ( run "to 1st ) A INR, THEN, 









+-Block 120- 

0' ( BB sentr\» defined routines ) 

1! AD MOV, 0 E MV I, VSTATUS R! LDA, CHKATBS CALL, 

2! VSTATUS R2 LDA, CHKATBS CALL, VSTATUS R3 LDA, CHKATBS CALL, 
31 VSTATUS R4 LDA, CHKATBS CALL, A XRA, E ORA, 

4| 0=, IF, ( ever'jbod'j on base ) 1 D MVI, THEN, D A MOV, 

5! 2 B MVI, ELSE, 5 B MVI, ( throw vel ) 

Gi THEN, BASEELAT STA, ( # of base to throw to ) A SLAR, 

7i BASETABLE H LXI, ' INDEXW CALL, 

8! VDSTY BL SDED, H INX, H I NX, M E MOV, H INX, M D MOV, 

91 THEN, E A MOV, VVEL EL STA, ( set bl vel ) 

101 VDSTX BL SDED, VXH X A LDX, D CMP, <, IF, RTHWPA H LXI, 

11! ELSE, LTHWPA H LXI, THEN, H VPLAYACTPCH X STX, 

12! L VPLAYACTPCL X STX, VACT VSTATUS X SETX, 

13! VGO VSTATUS X RESX, 10 A MVI, THROUITIMER STA, 

14! THROW STA, Y POPX, X POPX, El, RET, —> 

15 ! 

+-Block 121- 

0!( BB sentrM defined routines CREDARROH MLINN ) 
li: MLINN C mark last inning ) DI PX0 2A AS 4D 3 RECTAN LINN B@ 
2! DUF DUP IF 0A < IF 8F0 SWAP 0 DO 200 + LOOP ELSE DROP 1CF0 

3! THEN A500 IMRK 301 828 WRITE ELSE DROP DROP THEN El } 

4!: CREDARROW ( update last inning arrow ) DI UPCRED BZERO 
5! STRT1 B@ IF SELECT BONE ELSE CREDITS E@ CREDITS BZERO 
6! DUP IF CNSW1 E@ IF GAMEOVER B@ IF CREDITS B! 

7! CHKPLRS E@ IF ELSE SELECT BONE THEN 0 

8! ELSE CMPLR B® IF LINN E@ IF 2* ELSE SELECT BONE 1- 2* It THEN 
9! ELSE ( not cmplr ) DUP 1 AND CREDITS B! 0FE AND 

10! LINN B« IF ELSE SELECT BONE 1- THEN THEN THEN 

11! ELSE < not cnswl ) LINN B@ IF 2* ELSE SELECT BONE 1- 2* It 
12! THEN THEN LINN E@ t LINN B! MLINN 

13 1 CHKFLSHSTAY ELSE DROP THEN THEN El } 

14 ! — > 

15 ! 

t-Block 122- 

0! ( BB sentry defined routines THROWBALL , PTTBL ) 

1!LABLE PTTBL ( computer pitching table ) 

2! PSB , PCO , PICO , PFE , PFB , PCO , PSU , PSD , 

3! PICI , PSD , 

4 ! 

5!CODE THROWBALL ( wait For timer release ball ) 

Gi A XRA, THROWTIME STA, 

7! EAL H LXI, PITCHTIME LDA, A ANA, ©<>, IF, TBLPA SHLD, 

8! DI, < pitch ) VX PT LHLD, H DCX, H DCX, H DCX, 

9! H DCX, VX BL SHLD, VY PT LHLD, H DCX, H DCX, H DCX, H DCX, 

10 1 H DCX, H DCX, H DCX, VY BL SHLD, C give b1 pt coor, ) 

111 El, ' RE3ETRUNMER3 CALL, DOVERB WHBODDS DI, 

12! < reset runners ) PITCHBLPA H LXI, 1 A MVI, TBALLYSR STA, 

13", S W I N G G 0 STA, — -■ 
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+-Block 123-■- 

C BB servtrv) defined rouirines ) 

CMPT LBA, A ANA, ©< >, IF, C computer piirch ) 

PTRND# LBA, PTTBL H LXI, ' INDEXH CALL/ XCHG, ( rnd pitch ) 
THEN, ELSE, C hit or -throw ) THWPA SHLD, THHBLPA H LXI, THEN, 
VPLAYACTPC BL SHLB, VSTATUS EL H LXI, VACT M SET, 

VGO M RES, El, RET, 

BTABLE IODTBL ( inning odds -table ) 

5 B, 3 B, 3 B, 3 B, 3 B, 2 B, 2 B, 1 B, 1 B, 

: INNOBBS 

INN# B@ CMSW B@ IF BUP 6 > IF BROP 1 ELSE 1 > IF 2 ELSE 3 
THEN THEN ( cmp placer hit ratio ) SPBON B@ IF BROP 4 THEN 
ELSE ( placer ) SPBON B@ C bonous inning ) IF 3 > IF 1 ELSE 2 
THEN ELSE 1 - IOBTBL B@ THEN THEN IOBBS B! ; 

— > 


SET OFTBL ) 


H-Block 124- 

( BB sentry defined routines BATHIT , STARTM US IC 
COBE BATHIT ( he hit it time to get em running ) 

HITYET STA, BI, BOVERB INLOG 

A XRA, HITTIME STA, PITCHTIME STA, C tractor ball outfld) 
SWINGGO STA, El, RET, 

COBE STARTMUSIC A XRA, STMUSIC STA, 

CHEERME LBA, A ANA, ©<>, IF, BOVERB MRAH A XRA, CHEERME STA, 
BOVERB SI© 7 A MVI, 1 OUT, 2 OUT, 3 OUT, A XRA, © OUT, 4 OUT, 
ELSE, HOMERUN LBA, A ANA, ©=, IF, BOVERB MFENCE 
ELSE, BOVERB MCANNON BOVERB SI1 THEN, THEN, RET, 

CODE OFLDTBL OFTELPA H LXI, A XRA, OFTOTBL STA, 

BI, VPLAYACTPC RF SHLB, VFLAYACTPC CF SHLB, VPLAYACTPC LF SHLD, 
' OUTFLDACT CALL, El, RET, 

— > 

-B1ock 125- 

C BE sentry definitions BUTTONCHECK ) 

COBE BUTTONCHK C reads buttons for swing run 8c pitch it ) 
HITYET LBA, A ANA, ©< >, IF, 

C runner control ) 

CMSH LBA, A ANA, ©<>, IF, C computer control ) BI, 

X PUSHX, Y PUSHX, ©E B MVI, OFBLCHK CALL, ( chk if close ) 

Y POPX, X POPX, El, 1 XRI, 

ELSE, 14 IN, 2 AMI, 2 XRI , THEN, FORH STA, 


"1 4 








-Block 126- 

BB sen-tr'd definitions ) ( pitrch coirtrol ) 

PITCHIT LDA, A ANA, RZ, FLDGLR LDA, A ANA, RNZ, 

TIMEOUT LDA, A ANA, ©<>, IF, 14 IN, 1 ANI, RNZ, THEN, DI, 

A XRA, STRIKE STA, HITYET STA, FLSHCNT LDA, A ANA, 0=, IF, 
DOVERB WUPWRT THEN, FLSHSTAY LDA, A ANA, 0=, IF, 

FLSHON STA, FLSHTI ME STA, FLSHCNT STA, 

ELSE, A XRA, DOHUP STA, HUPFLSH STA, THEN, 

PIT CHPA H LX I, VPLAYACTPC PT SHLD, A XRA, 

PITCHIT STA, VUPDATE# PT STA, 4A A MVI, THROHTIMER STA, 
PITCHTIME STA, VMAGIC PT H LXI, HHOTHROHS SHLD, 

VSTATUS PT H LXI, VACT M SET, ' KILLOF CALL, El, 

ELSE, ( suing control ) CMSW LDA, A ANA, 0< >, IF, 

SHRND# LDA, ( set: up in uhonbase ) 98 ADI, A D MOV, 

VYH BL LDA, D CMP, RC, VXH EL LDA, 26 SBI, 4 CPI, RNC, 

ELSE, 14 IN, 2 ANI, RNZ, THEN, SHINGGO LDA, A ANA, RZ, 

SWING STA, THEN, RET, —> 

-Block 127- 

BB sentry definitions INSCN , PP ) 

ISCN 1C00 1000 828 A" INSERT COINS" SPOST } 

INSCN ( insert coin call ) 

SGO ' ISCN FLSHTON 

CNSW1 B@ IF 0C00 2200 S28 A" 1 COIN PER PLAYER 1ST INNING" 

SPOST 1700 3400 828 A" 1 COIN PER PLAYER" SPOST 0F00 4600 828 

A" EACH ADDITIONAL 2 INNINGS" SPOST 

ELSE 1800 2600 828 A" 1 COIN 1ST INNING ■ SPOST 

800 3C00 828 A" 1 COIN EACH ADDITIONAL 2 INNINGS ” SPOST 

THEN 2880 4C00 BASE2PAT 428 WRITR ; 

CONGR 700 1000 828 A" CONGRATULATIONS YOU ARE VERY GOOD" 

SPOST 0E00 2800 828 A" LETS PLAY AGAIN I WILL EUY“ SPOST } 
SORRY 1B00 1000 828 A" TOO BAD I WON" SPOST DP1CN ; 

DPI 1A00 2C00 828 A" DEPOSIT 1 COIN" SPOST ; 

> 

-Block 128- 

BB sentrg definitions DOGOVER ) 

TCNT 700 1800 828 A" TO CONTINUE GAME AT END OF INNING" SPOST 
CNSW12 B@ IF CREDITS E@ IF DPI ELSE 0F00 2C00 828 
A" DEPOSIT 1 COIN PER PLAYER" SPOST THEN ELSE DPI THEN ; 
SPLR12 1400 2000 828 A" SELECT 1 OR 2 PLAYERS" SPOST ; 

SPLR CNSW1 E@ IF CREDITS B@ 1 < > IF SPLR12 ELSE 0E00 2000 828 

A" SELECT 1 PLAYER OR DEPOSIT" SPOST 

0F00 3000 828 A" 1 MORE COIN FOR 2 PLAYERS" 

SPOST STRT1 BONE THEN ELSE SPLR12 THEN ; 

DOGOVER ( do game over 1 

SGO 32 OUTS B ! CN3H BONE CMPT BONE FX© 2A B6 4D 8 RECTAN EIDI 
SC0 I NNX ! INN* BZERO GAMEOVER BZERO S LINN B! ML INN DI 
GAMEOVER BONE LINN BZERO SCORE1 ZERO PX1 SCRS CMPLR BZERO 
FLSHSTAY BO IF FLSHSTAY BZERO FLSHOFF THEN 1© TWA IT INSCN 
8© THAU INSCN CREDITS BS IF SGO THEN SHILL BONE 
FLSHOFF DROP 0 FLYR1UP BZERO C plvrlup 0 ) EIDI ; —> 
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-Block 123- 

BB servtr'd definitions 
TF ( -take -the field ) 

DI ZERQRAM El 30 DUP DUP OUTS B! BALLS B! STRIKES B! 

15 1NP 1 AND CNSH1 E! , 

PLYR1UP DUP B@ 1 XOR DUP ROT B! CMPLR B® 

IF DUP IF CMSH BONE ELSE CMPT BONE THEN THEN 
DI SHILL B@ IF SGO DOGOVER ELSE 

GAMEOVER B@ IF SGO CMPLR E® IF SCORE1 E@ SC0RE2 B® < IF 
CONGR 50 THAIT LINN 1+B! MLINN DI CONGR 
GAMEOVER BZERO SPBON BONE 

ELSE SORRY C0 THAIT SORRY CREDITS E® IF DOCHGS 
ELSE DOGOVER THEN THEN 

ELSE CNSH1 E@ IF CNSH12 BZERO CREDITS B® 1 = IF DPCN ELSE 
CHKGMCNT DUP IF 1 = IF DPCN ELSE DOCHGS THEN 
- > 


-Block 130- 

BB sentry definitions TF ) 

ELSE DROP DOGOVER THEN THEN CNSH12 BONE 

ELSE C no cnswl ) CHKGMCNT IF DOCHGS 

ELSE DOGOVER THEN THEN THEN ELSE 1STINN B® IF ELSE 

DOCHGS THEN THEN THEN 

( plyrlup ) IF INNX ® B700 DNTRI INN# E@ LINN E® = IF 

TCNT 3© THAIT TCNT THEN ELSE 

INN# DUP 1+B! B® 0A = IF INN# BONE 

LINN DUP E@ 3 - SB! C new pointer ) MLINN DI 

PX© 2A B6 4D S RECTAN 8C0 INNX ! THEN 

INNX DUP @ 200 + DUP ROT ! B600 UPTRI THEN 501 828 HRITE 
FLSHSTAY B@ IF HUPFLSH BONE ELSE ' HUPHRT HUPHRT FLSHTON 
EIDI THEN SETFDST SETTF SBO HMRFLSH BZERO 3 OFTFCNT B! INNODDS 
GAMEOVER E@ IF ELSE F00 SUP 3F00 SUP ( sets "up" ) THEN 
HITYET BONE MYAH SI© J 
- > 

-B1ock 131- 

BB sentry definitions TFIELD > STRTBBALL r PLRSELCT ) 

PLRSELECT ( select singel placer or 2 placer ) 

DI FL CHKPLRS BONE 
SPLR SELECT BZERO MLINN } 

STRTBBALL DI INSTRC FL F00 SUP 3F0© SUP 

PLYR1UP BONE SCORE1 ZERO INN# BZERO STRT1 BZERO GAMEOVER BZERO 

CNSH1 B® IF CREDARROH ELSE MLINN DI THEN SHILL BZERO 

CMFLR E® IF YOU 1ST 50 DHAIT YOU1ST THEN 

8C0 INNX ! 1ST INN BONE TF 1STINN BZERO MOPENERS J 

PLRCHK 14 INP DUP 4 AND 4 XOR IF DROP CMPLR BONE STRTBBALL 

DI 800 7000 8&Z8 A" YOU ARE" SPOST El 

ELSE STRT1 B® IF DROP ELSE 8 AND 8 XOR IF CNSW1 B® IF 
CNSH12 BONE THEN STRTBBALL THEN THEN THEN ; 
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-Block 13 

sentry loop 

( look 


BB _ 

TERSECHK 
TFT I ME B@ 
CHKPLRS 


SENTRY 
at "terse 
IF TF THEN 
IF PLRCHK 


, TERSECHK ) 
routine flags 


SELECT B@ IF 
THEN UPCRED 


d RND 
THEN 


JJKUr 


CODE SENTRY 

( 

game loop 

■ ) B PUSH, 

TAKEFIELD 

LDA, 

A 

ANA, 


BUTTONCHK CZ, 

PITCHTIME 

LDA, 

A 

ANA, 

t 

TEALLPITCH CNZ, 

OFTOTEL 

LDA, 

A 

ANA, 

/ 

OFLDTBL CNZ, 

THRGUTIME 

LDA, 

A 

ANA, 

f 

THRQkIBALL CNZ, 

THROWANM 

LDA, 

A 

ANA, 

t 

THROWANIM CNZ, 

HITTIME 

LDA, 

A 

ANA, 

* 

BATHIT CNZ, 

CAUGHT 

LDA, 

A 

ANA, 

/ 

CHKCAUGHT CNZ, 

SCRTIME 

LDA, 

A 

ANA, 

/ 

CHKSCRTI ME CNZ, 

STMUSIC 

LDA, 

A 

ANA, 

/ 

STARTMUSIC CNZ, 

DOVERE TERSECHK 

: C 

chLe 

"tense flags ) 

E FOP , ' 

SENTRY 

JNF, 

NEXT —> 


( EE gamestart call GS ) 

: PUP ( power up routine ) 

I NTH IGHRES 0 0 OUTP 0 4 OUTP 7 DUP DUP 2 OUTP 1 OUTP 3 OUTF 
D1 0 RND# @ 1 RND# @ SCRERASE 1 RND# ! 0 RND# ! EMUSIC SI0 
SHILL BONE 

D1 FL SGO El GAMEOVER BONE TF SENTRY } 

BASE! ;S 



+-Block 134- 

i< BASEBALL SCORES 4-3, 10-6, 5-4, etc. ) BASE @ HEX 
!BTABLE STRIKESCORE 

S 23 MASTER AB ABVOLS 0E MCVOLS 0 VIBS 1 #E2 CNOTE #F2 BTONE #C2 
iATONE 1 #G2 CNOTE #FS2 BTONE 1 *A2 CNOTE #AS2 BTONE 1 #C3 CNOTE 
i#CS3 BTONE 1 #DS3 CNOTE #E3 BTONE 1 #F3 CNOTE #FS3 BTONE 1 #G2 
!CNOTE #GS3 BTONE 08 #B3 CNOTE #C4 BTONE QUIET 
!BT ABLE EALLSCORE 

128 MASTER AB ABVOLS 0A MCVOLS 0 VIBS 2 *G2 *F2 #D2 NOTES 
1 2 *G2 #E2 *C2 NOTES 2 *G2 *D2 #B1 NOTES 5 #G2 *C2 #A1 NOTES 

iQUIET 

s STABLE CO INSCORE 

S23 MASTER FF ABVOLS 2F MCVOLS E8 NOISE 52 VIBS 
I 12 #C2 #D2 #E2 NOTES ( 6 *B1 ANOTE 6 *A1 BNOTE ) QUIET 










0 

1 

2 

3 

4 

5 
G 
7 
3 
3 

10 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 

“7 

/ 

3 

3 

10 
1 1 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
G 
7 
3 
3 

1 0 
i 1 
12 
1 ^ 
14 
1 5 


88 ABVOLS 3S MCVOLS 
66 ABVOLS 36 MCVOLS 
44 ABVOLS 34 MCVOLS 
22 ABVOLS 32 MCVOLS 


+-Block 135-*- 

( FOUL,CHEERS,BAT CRACK ) HEX BTABLE FOULSCORE 0 VIES 
46 MASTER OF ABVOLS O MCVOLS 4 *A2 ANOTE 

5 #G2 ANOTE 5 #F2 ANOTE 6 #E2 ANOTE 

6 #D2 ANOTE 7 #C2 ANOTE 7 #B1 ANOTE 8 #A1 ANOTE 

8 #G1 ANOTE 9 #F1 ANOTE A #E1 ANOTE B #D1 ANOTE QUIET 

( CROWD CHEER ) BTABLE CHEERSSCORE 35 MASTER 33 NOISE 

AA ABVOLS 3A MCVOLS 7C 50 40 2E NOTES 4 53 42 2F NOTES 

4 56 44 30 NOTES 

4 59 46 31 NOTES 

5 DURATION 
7 DURATION QUIET 

BTABLE CRACKSCORE 50 MASTER 3D NOISE 
FF ABVOLS IF MCVOLS #F4 ETONE #E4 ATONE 
6 #G4 CNOTE QUIET 

BTABLE FENCESCORE 48 MASTER 38 NOISE 4 CRACKSCORE LDPCC 

— > 

-Block 136- 

C CROWD CHEERS & TAKE ME O-T-T-B-G. ) HEX 

{ : CMAJOR } 1C MASTER 0 NOISE EF ABVOLS F MCVOLS { i } 

{ : REST } 0 ABVOLS 0 MCVOLS A DURATION { # } 

{ : A } EF ABVOLS F MCVOLS { j > BTABLE TAKE-ME CMAJOR 0 VIBS 

14 *C1 *E1 *C2 NOTES A *E1 *G1 *C3 NOTES A *C1 *F1 *A2 NOTES 

A *C1 #E1 #G2 NOTES A #C1 #G1 #E2 NOTES 

IE #B0 #D1 #G2 NOTES IE #G0 #F1 #D2 NOTES 14 #C1 #E1 #C2 NOTES 
A #E1 #G1 #C3 NOTES A #F1 #C2 #A2 NOTES A #E1 #C2 #G2 NOTES 
A #C1 #G1 #E2 NOTES 3C #B0 #D1 #G2 NOTES 3C #C1 #E2 #C3 NOTES 
0 CHEERSSCORE LDPCC —> 

A 
A 

A #F1 *C2 #A2 NOTES 
#C2 #E2 NOTES 


*C1 #G1 *E2 NOTES 14 #B0 *D1 #G2 NOTES A *C1 #E1 #G2 NOTES 
#D1 #F1 #G2 NOTES A #DS1 #C2 #FS2 NOTES A #E1 *C2 #G2 NOTES 

A #E1 #E1 3A NOTES A #F1 #C2 #A2 NOTES 
A #A1 *C2 #F2 NOTES A #E1 #CS2 .*G2 NOTES 


#G1 
#F 1 


#D2 *A2 NOTES REST A A *D1 #A1 #F2 NOTES 


6 MASTER 


-Block 138- 

( BASEBALL SOUNDS , SIREN CANNON ) HEX 
BTABLE SIRENSCORE AB ABVOLS 0B MCVOLS 

90 5E 11 RDRNDNTE 80 5E 1 3 RDRNDNTE 70 5E 12 RDRNDNTE 
0 VIBS 10 MASTER 1 DURATION 0E MASTER 1 DURATION 0C MASTER 
1 DURATION 0A MASTER 1 DURATION 8 MASTER 1 DURATION 
1 DURATION 4 MASTER 1 DURATION 2 MASTER 1 DURATION 
12 SIRENSCORE LDPCC 

C HOMER CONT. ) BTABLE CANNONSCORE 

IF MCVOLS 2 MASTER 8 NOISE 
*FS2 BT ONE 6 #GS2 ANOTE 
6 *E2 ANOTE *B1 CTONE 6 #D2 BNOTE 
1A MCVOLS #A 1 CTONE 6 #C2 ANOTE 
17 MCVOLS #G1 CTONE 6 *B1 BNOTE 


# D 2 CTONE 
fi-C2 CTONE 
I'D ABVOLS 
AA ABVOLS 


O SIRENSCORE LDPCC 











0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

0 
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2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 


-Block 140- 

( SAFE , OUT , ) HEX 

BTABLE SAFESCORE 

34 MASTER AB ABVOLS 0B MCVOLS 0 VIBS 5 *C2 #E2 #G2 
NOTES 5 #G2 #D3 #B2 NOTES 5 #A2 *D2 *C3 NOTES 
12 *B2 #D3 #G3 NOTES 0 CHEERSSCORE LDPCC 
BT ABLE OUTSCORE 

23 MASTER AB ABVOLS 0B MCVOLS 0 VIBS 5 #G2 #D2 *F2 
NOTES 5 #E2 *B1 #D2 NOTES 5 #B1 #GS1 *F1 NOTES 
5 #E1 #F1 #B0 NOTES 
12 #G0 #F1 *A1 NOTES QUIET 
EASE ! ;S 


---Block 141- 

( MUSIC PROCESSOR COMANDS ) 

0 VARIABLE MUSPC { : MASTER 

E, { { } { : BT ONE } 12 B, B, 


BASE® HEX 
> 10 B, B, { ; } 

{ } } { : CTONE 

{ : ABVOLS } 

NOISE } 1 


{ 


4 B, HERE 
QUIET } 0 


VIBS > 14 B, B, { ; } 

MCVOLS ) 15 E, E, { ; > 

DURATION > 1 Bf B, { i } 

LDPC } 3 E, , { ; } { : QUIT } 

LDPCC } 2 B, /{ ; } { : 

MCVOLS 0 ATONE 0 BT ONE 0 CTONE QUIT { } } 

ANOTE } ATONE DURATION { ; > { : BNOTE } 

> { : CNOTE } CTONE DURATION { ; } 

RDRNDNTE } 0 B, E, B, E, { ; } 

RRNDNTE } 0 E, B, 0 B / B, { 

RNDNTE } 0 B, E, 0 B, FF B, 

NOTES } ATONE ETONE CNOTE { 


{ : ATONE > 11 B 

) 13 B, B, { j 
16 B, B, { ; } 

7 B, B, { ; } 

LDPC { ; } 

ABVOLS 

BT ONE DURATION 


} 


{ 


> 


I 


15 1BT ABLE 

+ -— 

©|C NOTE 

ENDMUSIC QUIET 
— Block 1 42- 

CONSTANTS ) 

> 

- 




1 I FD 

c= 

#G0 

EE C= #GS@ 

El C 

= #A© 

D4 C= #AS0 

C8 C= 

#B© 

21 ED 

C= 

#C 1 

B2 C= #CS1 

AS C 

= *D1 

9F C= #DS1 

96 C — 

#E1 

3 j BD 

c= 

#F 1 

85 C= #FS1 

7E C 

= *G1 

77 C= #G51 

7© C = 

#A1 

4 |6A 

e= 

#AS 1 

64 C= #B1 

5E C 

= #C2 

59 C= #CS2 

54 C= 

#D2 

5 ! 4F 

c= 

#BS2 

4A C~ #E2 

4 G C 

= #F2 

42 C= #FS2 

3E C = 

#G2 

G ! 3B 

c= 

4GS2 

37 C= #A2 

34 C 

= #AS2 

31 C= #B2 

2E C = 

#C3 

7 | 2C 

c~ 

*CS3 

29 C= #D3 

27 C 

= #DS3 

25 C= #E3 

22 C = 

#F3 

8 i 3© 

c= 

#FS3 

IF C= #G3 

ID C 

= #GS3 

IB C= #A3 

1A C = 

#AS3 

Q M O 

■W fl j. 

c= 

#B3 

1.7 C= #C4 

15 C = 

#CS4 

14 C= #D4 

13 C = 

#DS4 

1 0 3 12 

Q~ 

df, 

ii C~ *F4 

10 C = 

#FS4 

0F C= #G4 

©E C = 

*GS4 

1 1 ! 0D 

c= 

5 A 4 

©B C= ^C5 

©A G = 

# C S 5 

09 C= #DS5 

©B C ~ 

#F5 

t 2 \ 07 
13 1 02 

c= 

c= 

A G 5 
*C7 

© S C A 5 

0 i C = # G 7 

05 C = 
00 C~ 

#C6 

#G8 

04 C= #DSG 

©3 C = 

#G6 

1 4 ! { 
15 1 — 

5 V 
> 

} V A R 1 A B L E { f 

> { : 

BV } EVARI ABLE { } 

} 












4-Block 143-- 

0 I ( MUSIC PROCESSOR IN ASSEMBLY ) 

110 BV MULTIPLE 0 V STARTPC 0 BV NOTETIMER 0 BV PRIORITY 
2ISUBR FETCH MUSPC LHLD, M A MOV, RET, 

31SUBR INCPC MUSPC LHLD, H INX, MUSPC SHLD, RET, 

41SUBR HLOAD FETCH CALL, INCPC CALL, 0 H MVI, A L MOV, RET, 

5iSUBR PCJUMP MUSPC LHLD, M E MOV, H INX, M D MOV, 

6!MUSPC SDED, RET, 

7i( MUSIC PROCESSOR IN ICODE ) 

81FORHARD PROCESS FORWARD M1CASE FORWARD M2CASE FORWARD M3CASE 
91 FORWARD M4CASE FORWARD PORTOUT FORWARD MULTDN FORWARD MUSEND 
10ICODE MUSCPU .ASSEMBLE 

HIE PUSH, NOTETIMER LDA, A ORA, PROCESS JZ, 

12|A DCR, NOTETIMER STA, MUSEND JNZ, 

13|LABEL PROCESS FETCH CALL, INCPC CALL, A ORA, 

14|Ml CASE JNZ, HLOAD CALL, H PUSH, HLOAD CALL, 

15 IH PUSH, HLOAD CALL, H PUSH, DOVERB RND —> 

H—'— —--E 1 ock 1 4*4-- 

@I( MUSIC PROCESSOR AS A CODED SUBROUTINE ) 

1 IH POP, D POP, D DAD, B POP, L OUTP, A XRA, MUSEND JMP, 

2 I LABEL Ml CASE A DCR, M2CASE JNZ, FETCH CALL, 

31NOTETIMER STA, INCPC CALL, 1 ORI, MUSEND JMP, 

4 I LABEL M2CASE A DCR, M3CASE JNZ, PCJUMP CALL, 

51A XRA, MUSEND JMP, 

61 LABEL M3CASE A DCR, M4CASE JNZ, PCJUMP CALL, 

7 I 1 ORI, MUSEND JMF, 

81 LABEL M4CASE A DCR, PORTOUT JNZ, MULTIPLE LDA, A DCR, 

91 MULTIPLE STA, MULTDN JZ, STARTPC LHLD, MUSPC SHLD, MUSEND JMP, 
10! LABEL MULTDN PRIORITY STA, MUSEND JMP, 

11|LABEL PORTOUT 4 ADI, A C MOV, FETCH CALL, A OUTP, 

12 I INCPC CALL, A XRA, 

131 LABEL MUSEND A ORA, PROCESS JZ, B POP, RET, 

14 I .END 
15| — > 

4-Block 145- 

- 0|C MUSIC PROCESSOR CALLS ) 

II SUBR loadpc MUSPC SHLD, STARTPC SHLD, RET, 

21 CODE BMUSIC PRIORITY LDA, H POP, A ORA, 0=, IF, loadpc CALL, 

3| NOTETIMER STA, A INR, MULTIPLE STA, THEN, NEXT 

41 CODE EMUSIC 0 ENDMUSIC H LXI, loadpc CALL, 1 A MVI, NOTETIMER 

5 I STA, MULTIPLE STA, NEXT ( CALL EMUSIC AS AN INIT IN PROGRAM ) 
GI CODE PMUSIC H POP, loadpc CALL, 1 A MVI, MULTIPLE STA, 

7 I PRIORITY STA, NOTETIMER STA, NEXT 

8 I CODE MMUSIC H POP, PRIORITY LDA, A ORA, 0=, IF, loadpc CALL, 

9i NOTETIMER STA, H POP, L A MOV, MULTIPLE STA, 

10 l ELSE, H POP, THEN, HEXT 

11ICODE MFMUSIC 1 A MVI, PRIORITY STA, NOTETIMER STA, 


i: 


! H POP, 
1 BASE ■ jsS 


1 C CS d [P 1 c CAL 


H POP f L A MOV, MULTIPLE STA, NEXT 











+-Block 146- 

0 j ( BB music calls ) 

1 iDEC IMAL 141 LOAD 134 LOAD 

21: MCANNON 0 CANNONSCORE BMUSIC ; 

3|: MBOMB MCANNON ; 

4|: MYAH 0 CHEERSSCORE BMUSIC j : MRAH MYAH j 

5|: MHIT 0 CRACKSCORE BMUSIC ; : MFENCE 0 FENCESCORE BMUSIC ; 

61: MSTRIKE 0 STRIKESCORE BMUSIC } : MBALL 0 BALLSCORE BMUSIC } 

71: MFOUL 0 FOULSCORE BMUSIC ; 

81: MSAFE 0 SAFESCORE BMUSIC ; : MOUT 0 OUTSCORE BMUSIC } 

9|: MOPENERS 0 TAKE-ME PMUSIC j 
101: MCOIN 0 COINSCORE PMUSIC j 

11 ! J S 

12 ! 

13 | 

14 1 

15 1 

+-Block 147- 

01 ( BB hi+ sector constants 1 

I 1 DECIMAL 

211 C= FLYB 0 C= FG 

310 C= FBL 1 C= HLL 2 C= F3RDR 3 C= F3RDL 
414 C= HL 5 C= FSSR 6 C= FSSL 7 C= HM 

518 C= F2NDR 9 C= F2NDL 10 C= HR 11 C= F1STR 12 C= F1 STL 

6113 C= HRL 14 C= FBR 

71C bit equates > 7 C= VACT 6 C= VATBS 5 C= VOF 
8 1 4 C= VPT 3 C= VGO 2 C= VHU ( half tro next base ) 

91 1 C= VBL 0 C= VRUN 1 C= VAUTO 0 C= VFORW 

10 1 — > 

11 1 
12 1 

13 1 

14 1 

15 1 

-I-Block 148- 

01C BE constants ) 

II DECIMAL 0 C= VMAGIC 1 C= VANM# 2 C= VANML VANML C= VANM 

21 3 C= VANMH 4 C= VANMSEQL VANMSEQL C= VANMSEQ 5 C= VANMSEQH 

31 6 C= VPLAYACTPCL VPLAYACTPCL C= VPLAYACTPC 7 C= VPLAYACTPCH 

41 8 C= VUPDATE# 1© C= VDXH 9 C= VDXL VDXL C= VDX 12 C= VXH 

51 11 C= VXL VXL C= VX 14 C= VDYH 5 C= LDFLAG 

6! 13 C= VDYL VDYL C= VDY 16 C= VYH 15 C= VYL VYL C= VY 

71 17 C= VSTATUS 18 C= VHBASE 20 C = VPATH 


O i 

O t] 

19 

c= 

VPATL VPA 

TL C~ VPAT 21 C- VPERS# 

■iJ n 

22 

c= 

V S C R ft D R L 

VSCRADRL C= VSCRADR 

23 C~ VSCRADRH 

10 | 

24 


VXPAND 25 

C“ VDSTXL VDSTXL C= 

VDSTX 

111 

26 

C ^ 

VDSTXH 27 

C= VDSTYL VDSTYL C= 

VDSTY 

12 ! 

o O 

fZ O 

c— 

V D S T Y H 2 3 

C- VOFW 29 C= VVEL 

31 C= VLENGTH 

13 ’ 



VR5TAT 



'1 ^!i* 5 
■*] sr n 

— - > 
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4-——B 1 ock 

0[( BB variables) 

1 I BV= TMP3 V- TMP2 BV = CMFLR BV= SWRND* BV= LINN BV= CNSW1 
2! BV= PLYR1UP BV= INN# BV= SC0RE1 BV= SC0RE2 BV= HRAT 
3! BV= GAMEOVER BV= CREDITS BV= COINS V= INNX BV= UPCRED 
41 BV= CNTM1 BV= CNTM2 BV= 1STINN BV= SHILL BV= CNSW12 
5! . " VPTR SPEC- " VPTR @ H. 

6! HEX 7C30 VPTR ! DECIMAL ( sepera+e ram ) 

7! BV= CMPT EV= CMSW BV= LBASE BV= WALK 
Si BV= HITTYPE BV= SECTNM BV= OFPU BV= HITGOING 
91 EV= BASESTATUS BV= OFTFCNT BV= THROW BV= THROWAROUND 
10! BV= OLDSTRING BV= NEGDX BV= SWINGTYPE EV= BASEBLAT 
Hi EV= THRWBASE BV= OFFLDANM BV= HITOF V= PLAYON 
12i BV= STRINGERASE BV= DBLPLAY BV= OFTBLGO BV= INTFLAG 
13! BV= OUTS EV= TAKEFIELD BV= OLDFORW V= WHOSUP 
14i EV= TOTIMER BV= TOOF BV= TOOFF BV= TOOF# BV= PTRND# 

15! BV= HOMER BV= FENCE V= WHOTHROWS BV= THROWANM —> 

H-B 1 ock 1 50- 

©'( BB variables) 

1! BV= OFANM# BV= OTBALLY BV= TBALLDY 
2! BV= TBALLYSR EV= OTBALLX BV= TEALLDX 


3 ' 

V= 

THNPA 

EV = 

THWUPDATE# 

V= THWDY 

4 ! 

V — 

THWDX 

EV = 

THNOFCODE 


5 ! 

V= 

RUNFA 

BV= 

RUNUPDATE# 

V= RUNDY 

6 ! 

v= 

RUNDX 

EV= 

RUNOPCGDE 


7 i 

v= 

FLDFA 

BV = 

FLDUPDATE# 

V= FLDDY 

8 ! 

v= 

FLDDX 

BV = 

FLDOPCODE 


9 ! 

v= 

OFPA 

EV = 

OFUPDATE# V 

= OFDY 

10 i 

v= 

OFDX 

BV= 

OFOPCODE 


11 ! 

v= 

TBLPA 

BV= 

TBLUPDATE# 

V= TBLDY 

12 ! 

v= 

TBLDX 

BV= 

TBLOPCODE 


13 ! 

v= 

OFFPA 

EV= 

OFFUPDATE# 

V= OFFDY 

14 ! 

v= 

OFFDX 

BV = 

OFFOPCODE 


15! 

— > 





+ 

— 

--E 1 ock 

151- 

— 


< BB variables) 

V= TMPPITCH BV= STRT1 BV= DOWUP 
V= VECTPC BV= TFTIMER V= FNCX V= FNCY 
V= VECTIX BV= STRIKES EV= BALLS BV= HOMERUN 
BV = SCORESHOW V= CMFLDR BV= OFCRUN BV= FLSHSTAY BV= WUPFLSH 
BV= NOCATCH EV= WAITTHROW BV= STRING BV= STRINGOFFTIMER 
BV= STRIKE BV= WLKCNT EV= SPBON BV= OFTOTBL 

SAMEDLT EV= FLDCLR BV= TFT I ME BV= ICPTYP V= FLSHWHO 
TEMPV BV= IODDS BV= NORUN BV= INSOUT 


7 S 

BV 

8 ! 

BV 

S i 

V = 

10 i 

BV 

11 1 

BV 

t z; 

38 V 

1 3 | 

BV 

1 4 J 

BV 


V — B A S E X V = 
NOBLWRT 
FLSHCMT 
314 j jHGgo 

11 MEOUT 
GOSEQCNT 


BASEY BV = DBLFLAG 
BV- OFCATCH 
BV= FLSHON 
BV- STilUS I C 
BV- HMRCNT 
BV~ G03EQ 


BV = 
BV = 
BV = 
BV = 


OFOUT 
FLSHTI ME 
CHEERME BV= 
HMFLSHCNT 


HMRFLSH 
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+-B1 ock 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


( BB variab1es ) 

BV= CMOFTIMER BV= CHKPLRS BV= SELECT 
BV= WHICHINT EV= BLWAIT 
BV= BLTIME BV= RDST 
V = THROWT1MER V = THROWTIME 
BV = INAIR 

BV= ATBASE V= FLD0N1ST V= FLD0N2ND 
V= FLD0N3RD BV = SORT I ME 

BV= GRNDR BV = GRNDRVALUE 

BV = DPHIT BV = HLSIDE BV= HITDEEP BV= FOUL 
BV= HITTIME BV= COMMITED 
BV= HITYET BV= CAUGHT 
EV = SWING BV= SWINGTIME 
BV = FORW BV= FITCH IT 
BV= PITCHTIME 
iS 


H-Block 153 


( infield logic loop LDINFLDPA r ) 

BASE® HEX 

BV= HTMP BV= HMTMP BV= SWINGTMP BV= WTMP BV= 
: LDINFLDPA VPLAYACTPC 3RD ! VPLAYACTPC SS ! 
VPLAYACTPC 1ST ! VPLAYACTPC PT ! } 

— > 


DPTMP 

VPLAYACTPC 2ND 


! 


11 

12 

13 

14 

15 


© 

1 

2 

3 

4 

5 

6 

7 

8 
9 

1 0 

1 t 


-Block 154- 

BB infield logic HITDST , FHTBL , GHTBL , HTBL 
HITDST ( chooses h i -t location ) V UPDATE# BL BZERO 
THWBLPA VPLAYACTPC BL ! 82 VSTATUS BL B! ( vact ) 


BAL THWPA ! 
TABLE FHTBL 
4000 , 3000 
TABLE GHTBL 

2@0 , 8@0 , 
3700 , 3A00 
STABLE HMHTBL 

•r$ .15 4 .1 A 4 
A X Jl 4 Jl 


2800 VX BL ! AD00 VY BL ! 

( fl\j ball hi-t table ) 
, 2000 , 1000 , 200 , 


( grounder h i *t "table 
1000 , 1600 , 180© , 
, 3F00 , 4700 , 4E00 
< fence = 1 homer ~ 

0000 8STF Ex B, 


) 

2400 


2800 


2E00 


HMHTBL 




) 


Z normal 


0 ) 










+-Block 155- 

0!( BB in-field action bsj sector ) 

1i: FBLLS NOACTPA FBLL3RD 

21 1 THROWAROUND BONE FOUL BONE j 

3|: HLLS HITOF BONE NOACTPA HLL3RD 1 ; 

4!: F3RDRS NOACTPA F3RDR3RD 1 ; 

5': F3RDLS F3RDLSS F3RDL3RD 1 ; 

Gj: HLS HITOF BONE HLSS HL3RD 1 j 
7i: FSSRS DPHIT BONE FSSRSS HR3RD 1 ; 

8!: FSSLS DPHIT BONE F5SLSS HR3RD 1 J 
9i: HNS HITOF BONE HM55 HR3RD 1 ; 

lOi: F2NDRS DPHIT BONE HRPT HL1ST F2NDR2ND 0 j 

111: F2NDLS DPHIT BONE HRPT HL1ST F2NDL2ND 0 ; 

12 1 — > 

13 ! 

14 | 

15 i 

H-B 1 ock 1 56- 

0 ! C BB infield action sector GRNDRSTABLE ) 
li: HRS HITOF BONE HRPT HR1ST HR2ND 0 ; 

2!: F1STRS F1STPT F1STR1ST NOACTPA 0 ; 

3!: F1STLS F1STPT F1STL15T NOACTPA 0 ; 

4 j : HRLS HITOF BONE HRPT HRL1ST NOACTPA 0 j 
5!: FBLRS FOUL BONE THROWAROUND BONE NOACTPA 
6! FBLR1ST NOACTPA © j 

7'TABLE GSTBL C grnder fielder action bv-j sector ) 

S\ ' FELLS , ' HLLS , ' F3RDRS , 7 F3RDLS , 

9! ' HLS , ' FSSRS , ' FSSLS , ' HMS , 

10! ' F2NDRS , ' F2NDLS , ' HRS , ' F1STRS , 

11! ' F1STLS , ' HRLS , ' FBLRS , 

12 ! — > 

13 ! 

14 ! 

15 ! 

i-—-Block 157- 

0!C BB infield acirion b\* sector GRNDRACTION ) 

1 ! : GRNDRACTION ( given sectnm set up infield acirion ) 
2! C default values ) HITOF B2ER0 DPHIT BZERO 
3! FOUL BZERO 

4! GSTBL @ EX ( ret hlside and playact ) 

5! DUP HLSIDE B! IF VFLAYACTPC 3RD ! VPLAYACTPC SS ! 
6! HLPT VPLAYACTPC PT ! HL1ST VPLAYACTPC 1ST ! HL2ND 
7 1 VPLAYACTPC 2ND ! ELSE C hit: right: side ) 

8l HRS3 HR3RD LDINFLDPA THEN ; 

3 ’ -— > 


1 4 t 











H-E 1 ock 


BB infield action GRNDRHIT , CHKCN ) 

GRNDRHIT ( grounder ) GRNDR BONE 2 VVEL BL B! 

RND ( waited hit constant ) VDX BL 1+ B@ ( 1,6 

SWINGTYFE B@ SWINGTABLE @ EX DUP DUP DUP 
SECTNM B! GRNDRACTI ON 

FOUL B@ IF MFOUL 1 THROHAROUND B! CFOUL STRING B! 
HLSIDE B@ IF 800 ELSE 4800 THEN VDSTX BL ! 

6400 VDSTY BL ! DROP DROP 

ELSE ( fair ) HUPGO HITOF B@ IF 10 TOTIMER B! 

TOOF BONE 3 TOOF# B! 

CMPT E@ IF 35 CMOFTIMER B! THEN ELSE HITRUN LEASE 
1- GHTEL @ VDSTX EL ! HM = IF 2C00 ELSE 3C00 THEk 
VDSTY BL ! THEN HITDST ; 

LABLE CNTBL 2800 , 2000 , 300 , 

CODE CHKCN ( set up corner t\jpe ) ^t*******''^ 

C A MOV, CNTBL H LX I , ' INDEXH CM 1 i^’TI'T i i 

-Block 153- 


@ IF 10 TOTIMER B! 

THEN ELSE HITRUN LBASE BONE THEN 
IF 2C00 ELSE 3C00 THEN 


CODE HOMERCHK ( 
EXX, PSW POP, 5 
PSW POP, 4 ADI, 
H POP, L A MOV, 
A ANA, 0< >, IF, 
HOMER STA, 100 
A C MOV, D A MO 


hit check does homer set up HOMERCHK ) 

( chk for homer or fence hit ) 

P, 5 ADI, FNCY { 1+ } STA, ( 5 rnd +5 for fncsj 

ADI, A B MOV, ( 5 rnd +5 for fncx ) 

MOV, ( hit tsipe ) H POP, ( x ) D POP, C v ) 

IF, 1 CPI, =, IF, FENCE STA, 500 D LXI, ELSE, 
100 D LXI, THEN, THEN, 

A MOV, 28 CPI, <, IF, H A MOV, 0A CPI, C lcn ) 


ELSE, 


CPI , 


<, IF, CNTBL H LXI, C A MOV, ' INDEXH CALL, 
E H MOV, FNCX SHLD, 1C0 H LXI, ( 1ft c 

ELSE, 46 CPI, >=, IF, CNTBL H LXI, C A MOV, 
B A MOV, NEG, FNCX { 1+ } STA, 

4E00 H LXI, ( hit rt corner ) 


corner 


INDEXH CALL, 


+-Block 160- 

S ( BB infield action ) 

! ELSE, SHINGTYFE LDA, A DCR, 0=, IF, B A MOV, NEG, 

! ELSE, 4 CPI, =, IF, B A MOV, 
j ELSE, B A MOV, 

! 0 L BIT, 0=, IF, NEG, THEN, THEN, THEN, 

i FNCX { 1+ } STA, THEN, 

! THEN, THEN, VDSTX BL SHLD, VDSTY BL SDED, EXX, NEXT 


^ H 

\ 1 ] 
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-Block 161- 

RB infield action OUTFLDHIT > 

OUTFLDHIT C fls* ball ) IS TOTIMER B! HITOF BONE 3 VVEL BL B! 
TOOF BONE 3 TOOF# B! INAIR BONE 3000 RND 700 + ( \j ) 
SWINGTYFE B@ 1- FHTBL @ F00 RND + ( x ) 

0A RND HMHTBL B@ C h i t tM P e ) 5FF RND 5FF RND 
HOMERCHK WUFGO 

HITDST HRPT HL1ST VDSTX BL t 2800 < IF C Kit left ) 

HL2ND HLOUTSSFA ELSE HR0UT2NDFA HRSS THEN HR3RD LDINFLDFA J 

> 
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t-B 1 ock 162- 

C BB infield action INLOG ) 

: INLOG C infield master logic ) NOCATCH B2ER0 LEASE B2ER0 
OFTBLGO BONE WLKCNT B2ER0 NORUN B2ER0 

MHIT VM AG IC R1 PLAYON ! GRNDR B2ER0 HOMER B2ER0 DBLFLAG B2ER0 
OFPU B2ER0 FENCE B2ER0 INAIR E2ER0 SWINGTYFE B@ 6 = IF 0 
ELSE HRAT B@ 0A RND < IF 0 ( flx#b ) ELSE 1 ( grndr ) THEN 
DUF HITTYPE E! THEN 

IF OUTFLDHIT CMPT E@ IF 30 CMOFTIMER E! THEN 
ELSE GRNDRHIT THEN ALLFLDACT ; 

BASE! ;S 


+--—Block 163- 

!t BB hit run and throw for outfield f1^ ) 

ISUBR FNBB RET, 

j SUER FRO1 AUTOR1 CALL, RET, 

ISUBR FR02 VSTATUS R1 STA, RET, 

ISUBR FR03 VSTATUS R1 STA, RET, 

ISUBR FRO12 AUTOR1 CALL, AUT0R2 CALL, RET, 

ISUBR FR023 VSTATUS R1 STA, VSTATUS R2 STA, RET, 

ISUBR FRO 123 AUTOR1 CALL, AUT0R2 CALL, AUT0R3 CALL, RET, 

[ SUER FRO13 VSTATUS R1 STA, AUT0R2 CALL, RET, 

'LABLE WB3FTEL 

f FNBB , FROl , FR02 , FR03 , FRO12 , FR0123 , FR013 , FR023 , 










TAKEOFF ) 


+—-——————B1ock 164———————— 

0i( BB hit run and throw for outfield fl\i 

1 | HEX 

2 ! F= TORET 

3!SUBR TAKEOFF ( turn proper runners on ) .ASSEMBLE 
4i BASESTATUS LDA, HBSFTBL H LXI, ' INDEXW CALL, TORET H LXI, 
5! SI A MV I, < vaot & vrun ) H PUSH, ( ret add.) XCHG, PCHL, 

6iLABEL TORET RET, .END 
7 ! — > 

Si 
9 ! 

10 ! 

11 i 

12 ! 

13 ! 

14| 

15 1 

H-Block 165- 

0|C BB hit run and throw for infield grounder ) 

1 | SUBR SETDBLPLAY C sets up double pla\i HL-gu^ on 1st ) 

2i 1 A MV I, DBLPLAY STA, RET, 

3!SUBR NBB RET, 

4iSUER R01 AUT0R1 CALL, DPHIT LDA, A ANA, 

5! SETDBLPLAY JNZ, VMAGIC R2 B LXI, RET, 

6!SUER R02 HLSIDE LDA, A ANA, 0=, IF, 

7i AUT0R1 CALL, THEN, VMAGIC R2 E LXI, RET, 

S!SUBR R03 VMAGIC R2 B LXI, DPHIT LDA, A ANA, 


Si AUT OR1 CNZ, RET, 

10iSUBR R012 AUT0R1 CALL, AUT0R2 CALL, 

lli VMAGIC R2 E LXI, DPHIT LDA, A ANA, SETDBLPLAY JN2, 
12! VMAGIC R3 B LXI, RET, 

1 3 i — > 

14 ! 

15 i 

4 -Block 166- 


©i( BE hit run and throw for infield grounder ) 

ISSUER R023 VMAGIC R3 B LXI, DPHIT LDA, A ANA, 

2! 0< >, IF, AUTORl CALL, HLSIDE LDA, A ANA, AUT0R2 CZ, THEN, 

3i RET, 

4!SUBR R0123 AUTORl CALL, AUT0R2 CALL, AUT0R3 CALL, 

5! VMAGIC R3 B LXI, DPHIT LDA, A ANA, 

6i SETDBLPLAY JNZ, VMAGIC R1 B LXI, RET, 

7iSUBR R013 AUT0R2 CALL, DPHIT LDA, A ANA, 

&i VMAGIC R2 E LXI, 

9! 0< >, IF, AUTORl CALL, SETDBLPLAY JMP, THEN, 

10i VMAGIC R3 B LXI, RET, 

11 ii L A B l_ sr~ mi B A c* c* T A E i_ L 

121 NBB , R01 , R02 , R03 , R012 , R0123 , R013 , R023 , 

13! — > 

1 4 ! 

-J cf'i 










0 

1 

2 

3 

4 

5 

6 

7 

8 
3 

10 
11 
12 
13 

I 4 
15 

0 

1 

2 

3 

4 

5 
£ 

7 

8 
3 

10 

II 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 


-Block 167- 

< BB hit run and -throw for infield grounder ) 

FORWARD WRRET 

CODE HITRUN C activate proper runners and set trwbase ) 

A XRA, OFTBLGO STA, ( runners wont advance 2 bases ) 

B PUSH/ C set pla\ion b\i which runners go defaults to rl ) 
.ASSEMBLE BASESTATUS LDA/ VMAGIC Rl B LXI/ C default value 
WBASETABLE H LXI, ' INDEXW CALL, HRRET H LXI, 

SECTNM LDA, H PUSH, C ret add. ) XCHG, FCHL, 

LABEL HRRET PLAYON SBCD, B POP, NEXT .END 
DECIMAL ;S 


-Block 168- 

C BB who's on which base WHONEASEODDS ) 

RUN3CHK VWEASE R3 B@ 0 = IF 7 VMAGIC R3 ELSE 5 VMAGIC R4 
THEN jf 

RUN2CHK1ST VWBASE R2 B® 1 = IF 6 VMAGIC R3 
ELSE RUN3CHK THEN j 

RUN2CHK VWBASE R2 B@ 0 = IF 3 VMAGIC R2 
ELSE RUN2CHK1ST THEN j 
RUN2CHK12ND VWBASE R2 B® © = IF 2 VMAGIC R2 
ELSE 4 VMAGIC R3 THEN ; 

RUN1CHK2ND VWBASE Rl E® 2 = IF RUN2CHK12ND 
ELSE RUN2CHK THEN j 

RUN1CHK1 ST VWEASE Rl B® 1 = IF 1 VMAGIC R2 
ELSE RUN1CHK2ND THEN } 

— > 


-Block 163——- 

BB who's on which base WHBODDS ) 

HRBY2 HRAT B® 2 / HRAT B! i 

WHBODDS C sets who is on base calculates p 1 a\j odds 

VWBASE Rl B® © = IF 0 VMAGIC Rl 

ELSE RUN1CHK1 ST THEN WHOSUP ! BASESTATUS B! 

36 RND SWRND# B! 1© RND PTRND# B! 


£ 

! 

1 

C odd 

s 

logic 

7 

j 

I ODDS 

B® 

HRAT 

8 

3 

tl 

PLYR1UP 

B® IF 

9 

1 

il 

DUP O 

< 

IF -3 

1 © 

fl 

a 

ELSE 

( 

P 1 a v e r 

1 1 

§ 

DUP 2 

> 

I F HRB 

1 2 


THE N fi 

HEM THEM 


) 


SC0RE1 B® 


SWAP THEN - 

> IF? ELSE 8 THEN HRAT Bi 
up ahead ,) 

Y2 DUP 4 > IF HRBY2 DUP 6 > IF HREY2 


1 4 ? 
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-B1ock 

BB hit 1ogi c ) 
given dx and rnd waited constant ) 

SW-90 DROP DROP FBR ; 

SW-45 DUP IF 1 = IF ( x=l ) DROP FBR 
ELSE C x = -1 ) IF HRL ELSE F1 STL THEN THEN 
ELSE < X = 0 ) DROP DUP IF 1- IF F1 STL ELSE F1STR THEN 
ELSE DROP HRL THEN THEN ; 

SW-30 DUP IF 1 = IF ( x=l ) IF F1STR ELSE HR THEN 
ELSE C x = -l ) IF HR ELSE F2NDL THEN THEN 
ELSE C x= 0 ) DROP DUP IF 1- IF F2NDL ELSE F2NDR THEN 

ELSE DROP HR THEN THEN ; 

SH0 DUP IF 1 = IF C x=l ) IF F2NDR ELSE HM THEN 

ELSE C x —- —1 ) IF FSSL ELSE HM THEN THEN 

ELSE t x=0 ) DROP IF HM ELSE F2NDR THEN THEN ; 

> 
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-B1ock 

BB hit 1 og i c 
SW + 30 DUP IF 
ELSE C x= -1 
ELSE C x=0 ) 

SH+45 DUP IF 
ELSE < x= —1 
ELSE < x=0 ) 


171 - 

SWINGTABLE ) 

1 = IF C x=l ) IF HL ELSE FSSR THEN 
) IF F3RDL ELSE HL THEN THEN 
DROP DUP IF 1- IF FSSR ELSE FSSL THEN 
ELSE DROP HL THEN THEN ; 

1 = IF ( x=l ) IF HLL ELSE F3RDR THEN 
) DROP FBL THEN 

DROF DUP IF 1- IF F3RDR ELSE F3RDL THEN 
ELSE DROP HLL THEN THEN ; 

SH+9© DROP DROP FBL j 


TABLE SWINGTABLE 
' 5W-90 , ' SW-45 

' SW + 30 , ' SW+45 

JS 


SW-30 
SW + 90 


SW0 


0 

1 

2 

3 

4 

5 
G 

7 

8 
g 

10 

1 1 
l if’i 

1 3 
’1 4 


--33 i ock 1 73- 

C BE outfield computer control CMPOF ) 

HEX 

SUER CMPOF C calculates proper deltas and patterns ) 
DI, OFTBLGO LDA, A ANA, RZ, X FUSHX, 

VDSTXH BL LDA, 1C CP I * >=, IF, 34 CPI, >=, IF, 0 RF X 

ELSE, 0 CF X LX IX, THEN, ELSE, O LF X LXIX, THEN, 
CMFLDR SIXD, 

S VDSTX BL LHLD, VDSTY BL LDED, 2 A MV I, VGO VSTATUS X 
I * BSTCALC CALL, OFDX SDED, OFDY SHLD, OFPA SBCD, 

\ ' OUTFLDACT CALL, El, X POPX, RET, 

!JSUBR T00FCK ( ti^e out outfield check ) 

I TOOF* H LX!, M DCR, ©<>, IF, FF A MV I, TOOF STA, 


ELSE, 
T>EC I M AL 


; M F 0 F 


CALL, El, 1 A MV I, TOOFF STA, THEN, RET, 


LXIX, 

RESX, 
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-Block 174- 

C BB tractor ball logic TBALLPRC ) 

FORWARD NZPDX FORWARD LDOFPA BASE® HEX 

CODE TBLVEL ( tractorbal1 vel WL-# add. D-max vel ) 
M A MOV , 0 H LX I , A ANA, R2, 

7 A BIT, PSW PUSH, 0<>, IF, NEG, THEN, ( 

3 CPI, <, IF, 80 H LX I, ELSE, 1E0 H LXI, 

PSW POP, ' COMPHL CN2, RET, 

CODE TBALLVEL ( calculates 


PSW PUSH 
H I NX, 
CODE TBALLPRC 
( 12 IN, 

11 IN, A D 
OTBALLY 
D A MOV, 


( neH — 


, M SUB, 

A M MOV, 

( Pi tch or 
NEG, A D MOV, 
MOV, 10 IN, 


tfoa 1 1 
old ) 


abs . 
THEN 


vel A-actual val HL-old val ) 


H LXI , ' 

OTBALLX 


H DCX, PSW POP, 
control outfield 
13 IN, NEG, ) ( 
NEG, 


A M MOV, RET, 
) .ASSEMBLE 

x , ^ ) 


TBALLVEL CALL, 

H LXI, ' TBALLVEL CALL, —> 


-Block 175- 

BB outfield tractor ball running algorithm ) 

CMPT LDA, A ANA, RNZ, OFTBLGO LDA, A ANA, R2, 

TOOFF LDA, A ANA, RNZ, 

TBALLDY H LXI, 1 D MVI, ' TBLVEL CALL, OFDY SHLD, H PUSH, 
TBALLDX H LXI, 1 D MVI, ' TBLVEL CALL, 

OFDX SHLD, D POP, ( ofd* ) 

- > 


-Block 176- 

BB out fielder animation logic ) 

7 H BIT, ©=, IF, A XRA, H CMP, NZPDX JNZ, 

D CMP, NZPDX JNZ, E CMP, NZPDX JNZ, 

L CMP, NZPDX JNZ, STND H LXI, ( Hero delt) 
LDOFPA JNP, 

LABEL NZPDX RRUN H LXI, ( pos dx ) 

ELSE, LRUN H LXI, < neg dx ) 

THEN, H PUSH, ' OUTFLDACT CALL, H 
LABEL LDOFPA OFPA SHLD, RET, .END 


POP. 










to w »* <5 to co ~j <n m u w © tn ^ w ro <-» © to eo '■j sn ui -p- u ro ** © oi -p co ro ►* © m c» 'j trs ui p- to ro 


+ 

0! ( 


TBALLPITCH ) 
pitch velocities 
TBALLDY 


) 

PSW PUSH, 
s i gn ) 


- Block 177 - 

•a \ BB pitching algorithm 
1!CODE TBALLPITCH i loads 

TBALLYSR H LXI, TBALLDY LDA, 7 A BIT, 

M SUB, EXAF, ( save sub ) PSW POP, ( 

0>=, IF, EXAF, ( subtraction ) 

0>=, IF, M ADD, A M MOV, 3 CPI, >=, 

max = 3 ) A M MOV, THEN, ( if pos and > 

C neg d>g ) M A MOV, 2 CPI , 

M DCR, THEN, ( if neg and sr >= 2 dcr sr 
MOV, A H MOV, 0 L MVI, DI, TBLDY SHLD, 

0 D LXI, WLKCNT LDA, 2 CPI, <, IF, 

IT, 0=, IF, C0 D LXI, ELSE, FF40 D LXI, 
, El, RET, 


( sign ) 


( 

ELSE, 

>=, IF, 
THEN, M A 
TBALLDX H LXI. 

A MOV, A ANA, 
>, IF, 7 A 


I F j 


A MVI 
dM = 


THEN, 

sr ) 

) 


M 

0 < 


THEN, THEN, 
BASE! ;S 


THEN, TELDX SDED 


—Block 178—- 

I ( BB short subroutines string routines ) 

I BASE® HEX 
|: 2R0T ROT ROT ; 

!: SSAFE 240© 2R0T A" SAFE " SPOST SBO } 

i: SFOUL 2400 2R0T A" FOUL " SPOST ; 

j: S0UT1 2300 2R0T A" 1 OUT" SPOST ; 

!: S0UT2 2200 2R0T A" 2 OUTS" SPOST ; 

»: S0UT3 2200 2R0T A" 3 OUTS" SPOST ; 

1: SSTRIKE1 2000 2R0T A” STRIKE 1" SPOST j 
!: SSTRIKE2 2100 2R0T A" STRIKE 2“ SPOST ; 
I — > 


-I-Block 179- 

! ( BE short subroutines sirring routines ) 

|: SEALL1 2200 2R0T A" EALL 1" SPOST J 

!: SBALL2 2200 2R0T A" EALL 2" SPOST ; 

!: SBALL3 2200 2R0T A" EALL 3" SPOST ; 

i: SHOMER 2300 2R0T A" HOMER" SPOST i 

!: SWALK 2400 2R0T A" WALK" SPOST } 

I 6 C= CSAFE 1 C= CFOUL 2 C= COUT 3 C= CSTRIKE 4 C= CBALL 

! 5 C= CHOMER 7 C= CWALK 

! : DOSOUT OUTS B@ DUP 31 = IF DROP S0UT1 ELSE 32 = IF S0UT2 

! ELSE S0UT3 THEN THEM j 

l ; DOSSTRIKE STRIKES E@ 31 = IF SSTRIKE1 ELSE SSTRIKE2 THEN ; 

|DOSEALL BALLS E® DUP 31 = IF DROP SBALLi ELSE 32 = IF SBALL2 

! ELSE 3 BAL L 3 THEM THEN j 

!CODE CLRBLST 30 A MVI, BALLS STA, STRIKES STA, NEXT 

1 4 ii — > 

15 ! 
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-I-Block 180- 

( BE BALLERASE , DOHOMER , DOEHOMER ) 

CODE BALLERASE B PUSH, Y FU5HX, BLERASE CALL, 

Y POFX, B POP, NEXT 

: DOHOMER BALLERASE SHOMER CLRBLST SBO STRINGOFFTIMER BZERO 
: DOEHOMER SHOMER ; 

— > 


+ - 
! ( 

i 

s 


-Block 181- 

BB siring routines OUTTIME ) 

SGO 2000 2D00 828 A" GAME OVER" SPOST i 
OUTTIME C out prc ) 

OUTS DUP 1+E! B® 33 = IF MYAH 

VMAGIC PT 08 0 DO DUP DUP VPLAYACTPCL + OFFFPA S! 
VSTATUS + DUP E@ 80 OR F7 AND SB! VLENGTH + LOOP 
DROP TAKEFI ELD BONE 
STRIKES B@ 33 = IF BALLERASE THEN 

VMAGIC R1 4 0 DO DUP DUP DUP VPLAYACTPCL + OFFFPA S! 
VSTATUS + DUP B® F7 AND C res vgo ) SB! 

VUBASE + B@ IF DUP ( set: active if onbase ) 

VSTATUS + DUP E® 80 OR SB! THEN VLENGTH + LOOF DROP 
PLYR1UP B@ IF INN# E@ LINN E@ = IF 
SGO GAMEOVER BONE FLSHOFF THEN THEN 
ELSE MOUT THEN CLRBLST SBO DOSOUT } 

- > 

-Block 182- 

EE short: subroutines STRIKETIME > BALLTIME 
STRIKETIME ( strike process ) 

STRIKES DUP 1+B! B@ 33 = IF OUTTIME COUT OLDSTRING B! 
ELSE MSTRIKE DOSSTRIKE THEN SBO { 

BALLTIME C balls process ) 

BALLS DUP 1+E! B® 34 = IF SHALK MRAH WLKCNT 1+B! 

CHALK OLDSTRING B! LBASE BONE 40 HALK B! 

1 HLSIDE B! UHFODDS HITRUN ( start runners ) 14 UP GO 

CLRBLST ELSE F1BALL DOSEALL THEN SBO ; 


FOULTIME ) 


F* C? U LT 1 M El 1 c 
3F0UL STRIKES I 
ELSE 1+E1 SFO 1 

- > 


.ball process ) 

Bt 32 = IF DROP 

IN ) 
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-Block 183- 

C BB short subroutines SCOREME , STTBL , STETBL ) 

: DOSAFE MSAFE SSAFE ; 

TABLE STETBL ( string erase table ) 

' SSAFE , ' SFOUL , ' D0SOUT , ' DOSSTRIKE , ' D0SBALL 

' DOEHOMER , ' SSAFE , ' SWALK , 

TABLE STTBL ( string prc table ) 

' SSAFE , ' FOULTIME , ' OUTTIME , 

' STRIKETIME , ' BALLTIME , ' DOHOMER , ' DOSAFE , 

: SCOREME C plop scores up ) 

SCORESHOW DUF B@ 2 = IF 900 8C00 4308 SC0RE2 
ELSE 4300 8C00 4308 SC0RE1 THEN 1 NFOST EZERO 
HOMERUN B@ IF MBOMB ELSE MRAH THEN ; 


H-Block 184- 

0|C BB string routines STRINGGO , STRINGFRC ) 

1|: STRINGGO C given string / stringerase ) 

2! 7A00 ( m ) 828 C ex/mg ) 4 PICK 4 PICK 

3! IF STETBL ELSE 

4! STTBL 50 STRINGOFFTIMER B! THEN @ EX 
5! DROP DROP ; 

6|: STRINGPRC C string display ) 

7i STRING E@ DUP STRING BZERO 

8! STRINGOFFTIMER B@ IF OLDSTRING E@ 1 STRINGGO OLDSTRING B! 
9i 0 ( erase or write ) STRINGGO 

10! ELSE OLDSTRING B! ( one string ) STRINGERASE B@ STRINGGO 
11! THEN STRINGERASE BZERO ; 


12 

i BASE ! 

;S 




13 






14 
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-—E1ock 

186 


M , i IMI1 

0 

1 ( BE 

pattern 

tab 1 es 

) 


1 

ILAELE 

RUNUP© 

RUP0B 

f 

RUP0M , 

2 

i LABLE 

RUNUP1 

RUP1E 

f 

RUP1M , 

3 

i LABLE 

RUNUP2 

RUP2E 

r 

RUP2M , 

4 

! LABLE 

RUNUP3 

RUP3B 

/ 

RUP3M , 

5 

I LABLE 

RUNUP4 

RUP4E 

/ 

RUP4M , 

6 

! LABLE 

FLDUP1 

FUP1E 

/ 

FUP1M , 

7 

LABLE 

FLDUP2 

FUF2B 

r 

FUF2M , 

8 

i LABLE 

NOBOD# 

NOBOD 

JF 

NOBOD , 

9 

! LABLE 

BALL# 

BALLPAT 

, BALLPAT , 

1 0 

! LABLE 

ONES 1 

ON BAS! 

E1 

, ONBASE1 , 

I 1 

« LABLE 

0NBS2 

ONE AS! 

E2 

, 0NBASE2 , 

1 2 

n -.*> 













(VI n ^ LO N CO CD 


1 

LABLE 

THRWUP1 

TUF1M 


TUF1F 

2 

LABLE 

THRWUP2 

TUP2M 


TUP2F 

3 

LABLE 

THRUIUP3 

TUP3M 

r 

TUP3F 

4 

LABLE 

THRWUP4 

TUF4M 

r 

TUP4F 

5 

LABLE 

PTTHW1 

PTMID 

f 

TUP1F 

G 

LABLE 

STCB1 

TUP1M 

/ 

TUP1M 

7 

LABLE 

STCB2 

TUP2M 

jf 

TUP2M 

8 

— > 
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-Block 187- 

BB pattern "tables 


188- 


0 

( BB 

pattern 

"tab 1 es 

) 


1 

LABLE 

STND1 

STN1 

, STN 1 

r 

2 

LABLE 

STND2 

STN2 

, STN2 

/ 

3 

LABLE 

STND3 

STN3 

, STN3 

f 

4 

LABLE 

STND4 

STN4 

, STN4 

/ 

5 

LABLE 

STPT1 

STNFT 

, STNFT , 

6 

LABLE 

CVRBUP1 

CBUPl , CBUP1 , 

7 

8 
9 

LABLE 

CVRBUP2 

CBUP2 , CBUP2 , 

LABLE 

EALLM BALL© , 

EALL0 , 

BALL© 

10 

LABLE 

STCE STCE1 , 

STCE 1 , 

STCB2 r 

1 1 

LABLE 

STNDFT 

STFT1 

, STFT1 

r 

12 

LABLE 

PTPT 

PTTHW1 

, PTTHNl , 

13 

LABLE 

ONEASE 

ONES 1 

, ONES 1 

, 0NBS2 

14 

— > 





15 







BALL© 


BALL0 


( BB 

LABLE 

LABLE 


-B1ock 

pattern 

CVRBUF 

THRWUF 


189- 

"table matrix 


PATTERNS ) 


10 j 
1 1 l 
1 2 3 
13 ? 
1 4 ! 
1 5 ! 


LABLE NOBODY 


LABLE RUNUP 


L A E L. c. 
L A B L sz, 

LABLE 
FUNU 
n 0 B 0 
PI PI 
; >3 


F L D u F 

BINDS 

PATTERN 
P , FLD 
DY , BAL 
, ONBAS 


CVRBUF1 
THRWUF1 
THRWUP3 
NOBOD0 
NOBOD0 
RUNUP0 , 
RUMUP3 , 
FLD U FI } 
STND1 , 

S T N D 3 j? 

S ( 


UP 


, CVRBUF1 
, THRWUF1 
, THRWUP4 
N0BOD0 , 
NOEOD0 , 
RUNUP1 , 
RUNUF4 , 
FLDUF1 , 
STND1 j 
STND4 , 

MAIN MATRIX ) 
THRWUF , CVRBUF 
TCB j STNDFT , 


GVRBUF2 , 
THRWUPZ , 

NOBOD0 , 


RUNUF2 

FLDUP2 
STNDZ , 


STNDS 
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--Block 130- 

C BB op codes for p 1 a\»ac*t i on defined 
BASE® HEX 

LABLE BSRTBL 3ES0 , 6100 
2800 , A600 , 

CODE DEACTIVATE < reset 
VACT VSTATUS X RESX, 1 


, 2800 

active 
A MVI, 


BSRTBL 
4700 , 11C0 


DEACTIVATE ) 
6300 , 


b i -t in status ) 
SAMEDLT STA, RET, 


-B1ock 131- 

C BB op codes for pla\jaction defined THWANMSET ) 
CODE THWANMSET C set up "throw animation ) 

X PUSHX, H POP, WHOTHROWS SHLD, ( save who -throws 

BLERASE CALL, 1 A MVI, INAIR STA, 

THROWANM STA, RET, C set for sentry call ) 

CODE ON1 ST X PUSHX, H POP, FLD0N1ST SHLD, RET, 

CODE 0N2ND X PUSHX, H POP, FLD0N2ND SHLD, RET, 

CODE 0N3RD X PUSHX, H POP, FLD0N3RD SHLD, RET, 

-- > 


---Block 132- 

( BB op codes for pla^action defined 
CODE BLDST C ball -throw or hit: ) 

B PUSH, VVEL EL LDA, 

( max deli: > ' DSTLD CALL, ' DSTCALC 


BLDST ) 


CALL, 


LDFLAG CPI, < >, IF, A ANA, < rdst ? ) 0<>, IF, 

A XRA, GRNDR STA, INAIR STA, 

THROW LDA, A AHA, 0<>, IF, ( -throw or hit:) 

NED H LX I, THWPA SHLD, CAUGHT STA, ELSE, H PUSH, 

HITOF LDA, A AHA, Q< >, IF, 


D PUSH, 


1 1 
12 

1 4 
'I 5 











0 

1 

2 

3 

4 

5 

6 
7 

a 

9 

1® 
11 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


-B1ock 

BB op codes 
CMPT LDA, A 
HOMER LDA, A 
CHOMER A MV I 
HMRCNT STA, 
FENCE LDA, A 
VX BL LDED, 

D DAD, VDSTY 
A XRA, FENCE 
D POP, H POP 
THEN, THWPA 
- > 


193- 

■For playact ion defined ) 

ANA, CMPOF CNZ, 

ANA, 0<>, IF, STMUSIC STA, HOMERUN STA, 

STRING STA, 10 A MVI, HMFLSHCNT STA, 5 A MVI 
A XRA, HOMER STA, ' KILLOF CALL, THEN, 

ANA, 0< >, IF, STMUSIC STA, FNCX LHLD, 

D DAD, VDSTX BL SHLD, VY BL LHLD, FNCY LDED, 

BL SHLD, 

STA, VACT VSTATUS X SETX, THEN, THEN, 

THEN, THEN, THUIDY SHLD, THWDX SDED, 

H LX I, VECTPC SHLD, B POP, RET, 


-B1ock 

( BB op codes 
CODE FLDDST ( 

4 A MVI, ' D 

A ANA, 0< >, 
STPT B LX I, 
ELSE, 1C A 
STND B LX I, 
0< >, IF, 
TAKEFIELD 
OFTFCNT STA, 
C coyni all 
FLDPA SBC-D, 
THEN, FLDPA 
— > 


defined 
posi + ion 


< >, 

IF, 

4 A 


1 94- 

for pla^ac+ion 
fielders -take 
STLD CALL, ' 

IF, ( rdst ) VPT VSTATUS 
FITCHIT STA, CMPT LDA, A 
MVI, THEN, TIMEOUT STA, 

THEN, VOF VSTATUS X BITX, 

OFTFCNT LDA, A DCR, OFTFCNT STA, A ANA, 0=, IF 
STA, 3 A MVI, OFTOTBL 
THEN, THEN, THEN, 
of outfielders in 
FLDDY SHLD, FLDDX 

VECTPC SHLD, RET, 


FLDDST ) 

1ogic ) 

DSTCALC CALL, LDFLAG CPI, 

X BITX, 0< >, 

.. ANA, 0< >, IF, 
OFTBLGO STA, ELSE, 


STA 


IF 

MV 


H LX I 


pos i -t i on 
SDED, 


j i 

t-B1 ock 

t T3r T3k___I_ 


135- 

t EE op codes for playact ion 
FORWARD OFFPALD 

OFFFDST C all placer off 


CODE 


VOF VSTATUS X BITX, 
FLYR1UP LDA, VRUN 
A ANA, 0~, IF, 

THEM, 3300 D LX I, 

' DSTCALC CALL, 
f IF, 
it A D C k , 
FU 


defined 
field 


OFFDST ) 


@< >, IF, 20 


control ) .ASSEMBLE 

TFTIMER STA, THEh 
IF, 1 XRI, THEN, 


ffl a 
O 8 

A A N 

A , 

0< > 

cs a 
n 

FLDC 

LE 

LDA 

10 i] 

0< > , 

I 

F, H 

11 ! 

( I a 

st 

C*" J vp 

12 f 

sinu 

S I 

C ST 

13 j 

A XR 

A , 

HON 

14 \ 

LABEL 

OF 

FFAL 

1 5 1 

THEN 

t 

0 p p p 


A MVI , 

VSTATUS X BITX, @< >, ir , 

360O H LX I , ELSE, 1E00 H LXI, 

5 A MVI, ( max vel ) 

LDFLAG CPI, < >, IF, 

NED B LXI, VRUN VSTATUS X BITX, ©<>, 
FLDCLR STA, 0= , IF, HOMERUN LDA, A 
S, X PUSHX , H POP, WHOSUP LDA, L CMP, H 
* = , IF, 1 A MVI, CAUGHT STA, THROWAROUND 
‘A, CWEERME STA, STRIMGOFFTIMER STA, 
rUN STA, THEN, THEN, THEN, THEN, THEM, 

' OFFPA SBCD, OFFDX SDED, GFFDY SHLD, 
i H LXI, VECTPC SHLD, RET, .END — > 


IF 
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-Block 19G- 

( BB op codes for plaM&c-tion defined RUNDST ) 

F= NVFORW F= RBACK F= ROFW F= NVAUTO F= SOFW F= RVGO F= SVAVF 
F= NFORW F= RFDST F= REND F= NOFPU F= CKATBS F= RVACT 
CODE RUNDST ( runner base running control ) .ASSEMBLE 
VUIBASE X B LDX, NORUN LDA, A ANA, 0< >, IF, ( caught: ) 

X FUSHX, H POP, VMAGIC R1 LDA, L CMP, < >, IF, ( not rl ) 

VLENGTH D LXI, A ANA, ( reset cm ) D DSBC, ( runner ahead ) 

H PUSH, Y POPX, VUIBASE Y A LDX, A DCR, B CMP, 

= , IF, VATBS VSTATUS Y BITX, 0< >, IF, ( man on next: base ) 

2 A MV I, A VRSTAT X STX, < go back ) THEN, THEN, THEN, THEN, 

VRSTAT X D LDX, VOFW X C LDX, HOMERUN LDA, A ANA, SVAVF JN2, 

VAUTO D BIT, NVAUTO JZ, VFORH D BIT, NVFORW JZ, 

C A MOV, < ofw ) A ANA, RFDST JNZ, SOFW JMP, 

LABEL NVFORW C A MOV, C ofw ) A ANA, CKATBS JZ, 

LABEL ROFW A XRA, A VOFW X STX, B DCR, RVGO JMP, 

— > 

—-Block 197- 

( BB op codes for playact ion defined ) 

LABEL NVAUTO ( runner under placer control ) 

FORW LDA, A ANA, NFORW JZ, C A MOV, C ofw ) A ANA, 

SOFW JZ, VHW VSTATUS X BITX, ( half wa>j ) RFDST JZ, 

LABEL SVAVF 3 A MV I , LVRSTAT CALL, ( vau-to vforw for all ) 
RFDST JMP, 

LABEL SOFW 1 A MV I, A VOFW X STX, 

LABEL RVGO VGO VSTATUS X RESX, RFDST JMP, 

LABEL NFORW OFPU LDA, A ANA, NOFPU JZ, ( out: field pick up ) 

2 A MV I , A VRSTAT X STX, ( set vau-to res vforw ) NVFORW JMP, 

LABEL NOFPU C A MOV, < ofw ) A ANA, ROFW JNZ, 

LABEL CKATBS B DCR, VATBS VSTATUS X BITX, REND JNZ, 

LABEL RFDST E A MOV, B PUSH, ( which base ) 

BSRTBL H LXI, A SLAR, ' INDEXW CALL, D PUSH, H INX, 

H INX, M E MOV, H INX, M D MOV, 4 A MVI, C max vel ) H POP, 

_ \ 

f 

-Block 198- 

( BB op codes for pla'jaction defined ) 

' DSTCALC CALL, LDFLAG CPI, <>, IF, A ANA, 0<>, IF, 

( rchd dest ) VATBS VSTATUS X SETX, VHW VSTATUS X RESX, 

VAUTO VRSTAT X RESX, B POP, B PUSH, C base ) A XRA, 

A VOFW X STX, VWBASE X A LDX, E CMP, =, IF, C rchd nxt base) 
A INR, 4 CPI, ( score ? ) =, IF, SCRTIME STA, PSW POP, 

FLDCLR LDA, A INR, FLDCLR STA, VACT VSTATUS X SETX, 

3TND B LXI, OFFPALD JMP, THEN, A VWBASE X STX, THEN, 
HOMERUN LDA, A ANA, RVACT JNZ, OFTBL.GO LDA, A ANA, REND JZ, 
LEASE LDA, A ANA, REND JNZ, NORUN LDA, A ANA, REND JNZ, 

LABEL RVACT VACT VSTATUS X SETX, 

LABEL REND RONES E LXI, VXH X A LDX, 19 CPI, <, IF, C on 3rd ) 

LOME’S E LXI, THEN, 0 H LXI, @ D LXI, 

ELSE, VATBS VSTATUS X RESX, ( left base ) 

THEN, RUNFA 3BCD, RUNDY SHLD, RUNDX SDED, THEN, PSW POP, 

RUNPA M LXI, VECTPC SHLD, RET, .END —> 












m o* -4 m ui u ro ** © 01 ^ u ra ^ © us co m ^ co ro © *lh -p* cj h) *-* © co os -4 cn cn * u f\) 


WAITTHRW , BLMOTION , 
-table -tractor ball — 

> 


) 


-Block 139- 

( BB pi abaction op code OFMOTION , WAITTHRW , BLMOTION , OPTBL ) 
CODE OFMOTION ( set pc For ram pa 
OFPA { 1+ } LDA, 4 CPI, C stnd ? 

=, IF, VACT VSTATUS X RESX, THEN, 

OFPA H LX I, VECTPC SHLD, RET, 

CODE WAITTHRW ( se+s flag for ls+baseman -to wai-t -throw 
' THWANMSET CALL, BASESTATUS LDA, 5 CPI, R2, A XRA, 

THROWANM STA, 20 A MVI, WAITTHROW STA, RET, 

CODE BLMOTION ( set pc for ram pa -table -tractor ball — 

TELPA H LX I, VECTPC SHLD, RET, 

LABLE OPTBL 

' ONI ST , ' QN2MD , ' 0N3RD , 

' OFMOTION , ' BLMOTION , ' FLDDST , ' RUNDST , ' OFFFDST 
' BLDST , ' THWANMSET , ' DEACTIVATE , ' WAITTHRW , 


) 




+-Block 200- 

|( BB pla^actior process OFCODECHK , LOADANM ) 
iFORWARD OPRET 

i CODE OPCODECHK ( called b\i pl'jactupdate ) .ASSEMBLE 
I M A MOV, 28 CPI, <, A DCR, A DCR, ( check if opcode ) 

! IF, H I NX, VECTPC SHLD, ( save pc ) 

I OPTBL H LX I, ' INDEXW CALL, ( which opcode ) 

! OPRET H LX 1, H PUSH, ( save ret add. ) XCHG, ( H-opcd ) 

! PCHL, LABEL OPRET ( ex opcode re-turn here ) 

! VECTPC LHLD, THEN, RET, .END 

i CODE LOADANM ( loads magic 8: anm HL — -top of playact -table ) 
! ( IX—proper vector add ) 

! M A MOV, A VMAGIC X STX, C load magic ) 

I H I NX, M A MOV, H PUSH, PATTERNS H LXI, ' INDEXW CALL, 

| D VANMH X STX, E VANML X STX, ( load anm > 

! H POP, C pc j H INX, RET, ( returns updated pc in HL ) 


10 
1 5 

1? 
1 ‘V 

1 5 


H---Block - 

C BB p 1 avfSct i on process 
CODE ANM5EGL0AD f find 

C IX-p 

VANMH X H LDX, VANML 
' INDEXW CALL, C a 
D VANMSEQH X SIX, E 
CODE PACTLOAD ( loads ve 
VPLAYACTFCH X H LDX, 

' OPCODECHK CALL, ( 
3A MEDLT L D A, A ANA, 0< 
H INX, H INX, K I MX, 

A VUFDATE# X 3 
A MOV, A VDYH 
STX, H INX, M 
VFLAYACTFCH X 


I MX , 
M A MOV, 
H INX, n 
A VDXL X 
THEN, H 
RET, ——> 


ANMSEQLOAD , PACTLOAD ) 
s proper anm seq b nj pens# ) 
roper vector add ) 

X L LDX, VPERS# X A LDX, 
nm seq look up ) 

VANMSEQL X STX, RET, 
ct from p 1 a c ir ) 

VPLAYACTPCL X L LDX, C pl^aci: pc ) 
check for opcodes ) 

>, IF, H INX, H INX, A XRA, SAMEDLT STA, 
H INX, H INX, ELSE, ' LOADANM CALL, 

IX, H INX, M A MOV, A VDYL X STX, 

X STX, H INX, M A MOV, 

A MOV, A VDXH X STX, H INX, 

STX, L VPLAYACTPCL X SIX, 










cn -£■ a) ro 


+-Block 202- 

0j( BE plaMacirion process PATFETCH ) 

1 i CODE PATFETCH C loads actual pair-tern IX~vector ) 

21 503 H LXI, HITYET LDA , A ANA, 0=, IF, VPT VSTATUS X BITX, 

3! 0< >, IF, 1812 H LXI, THEN, THEN, 

4| V A N M # X A LDX, ( animation # ) 


5! A INR, H CMP, >=, IF, A XRA, THEN, < start again) 

Gi A VANM# X STX, L CMP, <, IF, A XRA, ELSE, 1 A MVI, THEN, 

7| C which motion ) VANMSEGH X H LDX, VANMSEQL X L LDX, 

8j r INDEXW CALL, C look up proper pattern of sequence ) 

B\ D VPATH X STX, E VPATL X STX, RET, 

10 ! — > 

1 1 j 


i 


H-Block 203- 

'( BB plaMacirion process PLAYACT ) 

i CODE PLAYACT ( called in intterwpt dees update pr® ) 
j ( assumes vec-tor add in vectix ) 

! E PUSH, X PUSHX, 

! VECTIX LIXD, VUPDATE# X A LDX, A ANA, ( update * chk > 
i Q— f IP, ’ PACTLOAD CALL, ( load new pla<j action ) 

I ELSE, FF CPI, =, 

! IF, ELSE, A BCR, A VUPDATE# X STX, ( dcr update# ) 

i THEN, THEN, ' ANMSEQLOAD CALL, ' PATFETCH CALL, ( new pat. ) 

! X POPX, B POF, RET, 

IBASE! JS 

I 

I 

I 


1 

+---B1 ock 211- 

0|( BB inning placer intialization SETFDST ) 

1!BASE® HEX 

2!: SETFDST ( set up fielder destination values ) 
31 1E00 VDSTX SS ! 4800 VDSTY SS ! 

45 3A00 VDSTX 1ST ! 5BO0 VDSTY 1ST ! 

55 14O0 VDSTX 3RD ! 5B00 VDSTY 3RD ! 

6 5 3200 VDSTX 2ND ! 4800 VDSTY 2ND ! 

7 5 2800 VDSTX FT ! SI 00 VDSTY PT ! 

SI 1400 VDSTX LF ! 2AO0 VDSTY LF ! 

9! 3C00 VDSTX RF ? 2A00 VDSTY RF ! 

10’ 2800 VDSTX CF ! 1S00 VDSTY CF ! j 


I 











-I-Block 212- 

0 i ( BB inning placer i nt i a 1 i sat i on LSETTFCOOR ) 

1 ! : LSETTFCOOR ( set -take field coor & status -active t xpand ) 

2! VMAGIC R1 4 0 DO DUP DUP DUP DUP DUP DUP 28 SB! VXH + 25 SB! 

31 VYH + A8 SB! VXPAND + 88 SB! VSTATUS + 1 SB! 

4| VPATL + NOBOD S! VLENGTH + ( next magic ) LOOP 

5! ( p-t ) 8 0 DO DUP DUP DUP DUP DUP 28 SB ! ( flders ) 

G! VXH + PLYR1UP B@ IF IB ELSE 3G THEN SB! 

7! VYH + S3 SB! VXPAND + 88 SB! VPATL + NOBOD S! 

8! VLENGTH + < nxt magic ) LOOP DROP 

Si 28 VMAGIC EL ! NOBOD VPAT BL ! 88 VXPAND BL B! 2 VSTATUS BL B! 

101 10 VSTATUS PT B! 20 VSTATUS RF B! 

11! 20 VSTATUS LF B! 20 VSTATUS CF B! 3 OFTFCNT B! 

121 7 FLDOPCODE B! 6 TELOPCODE B! 5 OFOPCODE B! 

13 1 — > 

14| 

15i 

H-B1 ock 21 3- 


0 it 

1 i 

2 ! 

3 i : 

4 i 
5i 
Si : 


3 

10 
11 
12 


BB inning plaver intia 1isation RETPA , SETTFPA ) 

S OFFOPCODE B! 8 RUNOPCODE E! OPBLDST THWOPCODE B! 

NBD RUNPA ! STND OFPA ! NBD TBLPA ! BAL THWPA ! J 
RETPA ( return to position pa ) 

VMAGIC PT 8 0 DO DUP DUP VPLAYACTPC + TFPA S! VSTATUS + DUP 
B@ 80 OR F7 AND SB! VLENGTH + LOOP DROP ; 

SETTFPA ( take field pa ) 

TFPA2 VPLAYACTPC PT ! TFPA1 VPLAYACTPC 1ST ! 

TFPA1 VPLAYACTPC 2ND ! TFPA1 VPLAYACTPC 3RD ! 

TFPA1 VPLAYACTPC SS ! 

RUNEPA VPLAYACTPC R1 ! RUNEPA VPLAYACTPC R2 ! 

RUNBPA VPLAYACTPC R3 ! RUNEPA VPLAYACTPC R4 ! 

TBLPA VPLAYACTPC BL ! } 


13 


— > 


14 

15 


-B 1 oc U. 214- 

C BB inning placer intia 1isation 
SPECORAM 0 7C00 30 FILL ; 

STFLD RETPA TAKEFIELD BONE i 
SETTF LSETTFCOOR STFLD SETTFPA 
BASE! ;S 


ZERORAM 



SPEC0RAM , LSETTF ) 


8 S 

9 j 
1 0 ' 
11 ! 
12 ’ 
13 : 

14 l 
1 5 ! 













© ta c* -4 >x> 01 & u ro © oi co ro ^ © cd co -sj cn m ^ w hj 


j -g 1 ock 21 5- 

0!( BE plaMacirion loader ) 

ISIS© LOAD ( pl^acirion process ) 

! 21 1 LOAD C irmirug placer irrtialisairion ) 

B « C 
s / o 


11 
12 

13 

14 

15 

0 

1 


-Block 216- 

BB vectors ) 
VLENGTH BARRAY R1 
VLENGTH BARRAY R2 
VLENGTH BARRAY R3 
VLENGTH BARRAY R4 
VLENGTH BARRAY FT 
VLENGTH BARRAY 1ST 
VLENGTH BARRAY 2ND 
VLENGTH BARRAY SS 
VLENGTH BARRAY 3RD 
VLENGTH BARRAY LF 
VLENGTH BARRAY CF 
VLENGTH BARRAY RF 
VLENGTH BARRAY EL 
VPTR END - " 


VPTR @ H. 


;s 

-Block 225- 

C BB plav action -tables 
HEX 


2 I { 

: REST / 

} NED , B, & , & 

s { J } C rest 

"t i me 

<3 i ve 

update# 

3 ' { 

: ACT f } 

, B, / , { } } 

( given dx dy 

update# 

magic ) 

4 1 { 

: ONI ST , 

> 2 B, { J > 







5 1 { 

: 0N2ND j 

} 3 E, { } } { 

: 0N3RD, } 4 B, 

{ 

» 

} 



6 ! ©A 

C= OPBLDST 6 C= OPBLMOT 

{ : WTHW, } 0D 

B 

, { 


> 


7 ! { 

: OFMOT / 

} 5 B, { } } { 

: BLMOT, } OPBLMOT 

B, 

{ ; 

> 

S ! { 

: RUNDST 

, } 8 B, { ; > { 

: OFFDST, > 9 

B, 

{ 


} 


Q ii / 

fi 1 

: ELDST / 

> OPBLDST B, { 

; } { : FLDDST , 

} 

7 

B, 

{ ; 

> 

10 ] / 

: THW ■ } 

(;E Fj { .! > { : 

DEACT, } 0C B, 

{ 


} 



1 i 1 i 

: SIP r } 

0 © © SIND ACT, 

DEACT, { i } 






iZH 

: RCE jr } 

@ © 0 RGB ACT , 

DEACT, { I > 






13!' 

■ LCBj } 

0 0 0 LCB ACT jf 

DEACT j i jf } 






1 4 |j — 

\ 
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-Block 226- 

C BB plavj action “tables —runners— ) 

LABLE RUNBPA RUNDST, LABLE OFFFPA OFFDST, 

LABLE TFPA FLDBST, LABLE OFTBLPA 0FMOT, 

LABLE TFPA1 10 REST, FLDDST, 

LABLE TFPA2 20 REST, FLDDST, 

LABLE THWBLPA BLDST, 

LABLE PITCHBLPA BLMOT, 

LABLE HL1ST 200 60 0E RRUN ACT, QN1ST, LCB, 

LABLE HL2ND -300 0 0A LRUN ACT, 0N2ND, LCB, 

LABLE HRSS 300 -20 0D RRUN ACT, QN2ND, RCB, 

LABLE HK3RD -200 E0 0A LRUN ACT, 0N3RD, RCB, 

LABLE HLPT -100 0 12 LRUN ACT, 000 STPT ACT, DEACT, 
LABLE HRPT 100 0 12 RRUN ACT, 000 STPT ACT, DEACT, 
— > 


-Block 227-*- 

( BB pla\j action “tables fieldlogic -infielders- ) 
LABLE NOE0DYFA 000 NBD ACT, DEACT, 

LABLE PITCHPA 0 0 12 PTTHW ACT, 0 0 0 STPT ACT, DEACT 
LABLE RTHWPA 005 RTRW ACT, STP, 

LABLE LTHWPA 005 LTRW ACT, STP, 

LABLE FBLR1ST 220 60 16 RRUN ACT, 100 40 2 RFLD ACT, 
LABLE FBLL3RD -1F0 80 12 LRUN ACT, -80 40 2 LFLD ACT, 
THW, STP, 

LABLE NOACTFA STP, 

LABLE HLL3RB -100 0 12 LFLD ACT, 0 100 5 LRUN ACT, 
0N3RD, RCB, 

LABLE F3RDR3RD -30 40 0A LFLD ACT, THW, STP, 

LABLE F3RDL3RD 80 4© 0A RFLD ACT, THW, STP, 

LABLE F3RDLSS -100 40 12 LRUN ACT, STP, 

LABLE HL3RD 80 -40 12 RFLD ACT, -200 C0 0E LRUN ACT, 


infielders- ) 


--Block 228--- 

C BB p 1 a\j action tables fieldlogic 
LABLE HLSS -80 0 10 LFLD ACT, STP, 

LABLE FSSRSS -80 80 0C LFLD ACT, THW, STP, 

LABLE FSSLSS 180 80 0C RFLD ACT, THW, STP, 

LABLE HMSS 100 -40 0C RRUN ACT, STP, 

LABLE F2NDR2ND -E0 A0 0C LFLD ACT, THW, STP, 

LABLE F2NDL2ND 80 0 0D RFLD ACT, THW, STP, 

LABLE HR2ND 80 0 12 RFLD ACT, STP, 

80 -40 12 LFLD ACT, 200 90 13 RRUN ACT, 
40 30 0A LFLD ACT, WTHW, STP, 

40 0B RFLD ACT, WTHW, STP, 

8 RFLD ACT, STP, 

FiSTPT 480 0 15 RRUN ACT, 0N1ST, LCB, 

HLOUTSSFA -20 -80 10 LRUN ACT, STP, 


i LABLE HR1 ST 
1 LABLE FISTR1ST 
? LABLE FI STLI ST 140 
R L13 T 100 0 


! LABLE 
l LABLE 
1 LABLE 


LABLE HR0UT2NBFA 20 80 10 RRUN ACT, STP, 


THW, STP, 


0N3RD, RCB, 


0N1ST, LCB, 

) 











+-Block 229 


0 i < BB pUm action “tables single placer pitches ) 

1 i HEX 

2[{ : BACT, } BAL ACT, { ; } 

3! { : LK, } 0 0 0 BACT, DEACT, { } > 

4 [LABLE PFB 0 300 50 BACT, 

5!LABLE PSB 0 100 80 BACT, 

6ILABLE FSU 0 100 35 BACT, 0 300 50 BACT, 

7!LABLE PSD 0 300 12 BACT, 0 100 50 BACT, 

SiLABLE PCO 0 300 12 BACT, 100 200 9 BACT, 0 200 50 BACT, 

9[LABLE PCI 20 300 12 BACT, -60 200 9 BACT, 0 200 50 BACT, 

10iLABLE PICI -10 200 1A BACT, -100 200 9 BACT, 0 200 50 BACT, 

11[LABLE PICO -20 200 1A BACT, 60 200 9 BACT, 0 200 50 BACT, 

12[DEC IMAL ;S 

13 [ 

14 [ 

15 [ 


+ 
0 ! 
1 ! 
2 ! 
3 [ 
4! 
5 ! 


8 ! 
9 ! 
10 [ 
11 [ 
12 [ 

13 [ 

14 [ 

15 S 
+ 


-Block 230- 

( BB destination del“ta calculation DSTCALC ) 

BASE® HEX 

FORWARD DSTSET FORWARD BTLP1 FORWARD RSRDST 
CODE DSTCALC ( calc deltas -to destination ) 

( in HL — dstx DE-dst>j A —max vel ) 

C out: HL—d^ DE—dx EC—magic 8: pat-tern # ) .ASSEMBLE 

EXAF, VXH X B LDX, VXL X C LDX, B DSBC, PSW PUSH, 

' COMPHL CC, L SLAR, H RALR, L SLAR, 

H RALR, XCHG, C diffx-DE dstM-HL ) VYH X B LDX, VYL X C LDX, 
B DSBC, PSW PUSH, C diff^-HL ) ' COMPHL CC, 

EXAF, PSW PUSH, EXAF, PSW POP, C max vel for crop value ) 

A INR, A INR, H CMP, RSRDST JC, D CMP, RSRDST JC, 

A XRA, H CMP, DSTSET JN2, D CMP, DSTSET JN2, ( exact point ) 
0 H LX I, @ D LX I, PSW POP, PSW POP, 

0FF A MVI, RDST STA, < set reached destination & 0 deltas ) 
VACT VSTATUS X RESX, VGO VSTATUS X RESX, RET, —> 

-Block 231- 


0! ( BB destination delta calculation ) 

1[LABEL RSRDST VGO VSTATUS X BITX, 0<>, IF, PSW POP, PSW POP, 


2| 

( on 1 

ca 1 c 

once ) 

LDFLAG A MVI, 

SAMEDLT 

STA, 

3! 

ELSE , 

H A 

MOV, D 

CMP, PSW PUSH, 



4 [ 

< , IF, 

XCHG 

, ELSE, 

=, IF, L A MOV, 

E CMP, 

<, IF, XCHG, 


5[ PSW POF, STC, PSW PUSH, THEM, THEN, 

6[ THEN, < HL > diff ) EXAF, ( max de11 ) 0 B MV I, 

7[LABEL BTLP1 E INR, H SRLR, L RARR, C /2 > H CMP, BTLP1 JC, 
8[ D SRLR, E RARR, ( /2 ) —6 DJN2, C reduce same as hi ) 

9[ PSW POF, ( xd >vd ) < , IF, XCHG, THEN, 

10 l LABEL DSTSET PSW FOP, < +- dsj ) 

11! CY, IF, ' COMPHL CALL, THEN, PSW POP, PSW PUSH, ( +- dx ) 
■12 1 CY, IF, ' GOURDE CALL., THEN, PSW POP, C dx sign ) 

13! CY, IF, LRUN E LX I, ELSE, RRUN B LX I, THEN, 

14! A XRA, RDST STA, VGO VSTATUS X SETX, THEN, RET, . 

■15 1 — > 


END 










©toco-jcnm^wro 


+-Block 232 


C BB set d 
CODE DSTLD 
VDSTXH X 
VDSTYL X 
RET, 

BASE! ;S 


estinati 


H LDX , 
E LDX, 


on registers from vector ) 
VDSTXL X L LDX, VDSTYH X D LDX, 


1 1 
12 

13 

14 

15 

© 

1 

2 

3 

4 

5 
G 
7 

a 

3 

10 
1 1 
12 

13 

14 

15 

0 

1 

2 

3 

4 

5 
S 

7 

8 
3 

1 0 
•1 i 
12 


+-Block 233- 

C BB short subroutines COMPHL COMFDE TIMEDCR BONE BZERO WUPGO ) 
BASE® HEX 

CODE CGMFHL C compliments HL ) 

H A MOV, CMA, A H MOV, L A MOV, CMA, A L MOV, H INX, RET, 

CODE COMPDE H PUSH, XCHG, ' COMPHL CALL, XCHG, H POP, RET, 

SUER TIMEDCR C HL~timer add if goes to zero return 1 else 0 ) 

M A MOV, A ANA, RZ , ( alIreadM zero returns false change ) 

A DCR, A M MOV, A ANA, 0=, IF, A INR, C true change ) 

ELSE, A XRA, THEN, RET, 

: BONE C cange b^te memory cell to 1)1 SB! Jf 

: BZERO ( change bvjte memory cell to 0 ) 0 SB! J 

: HUPGO HHOSUP @ DUF VSTATUS + SI SB! VRSTAT t 3 SB! J 

— > 

t---Block 234- 

( BE short subroutines DIVHLBY4 INDEXW EX ) 

CODE EX C9 B, NEXT 

CODE DIVHLBY4 ( divide HL b^ 4 ) 

7 H BIT, PSW PUSH, ( dir ) 

' COMPHL CNZ, ( abs d^ ) 

H SRLR, L RARR, H SRLR, L RARR, ( /4 ) 

PSW POP, ' COMPHL CNZ, RET, 

CODE INDEXW ( call routine A- disp HL- table add ) 

^ t or inoex irug into table a n I ) 

PSW PUSH, A SLAP, ( ZW A ) 

L ADD, A L MOV, O A MV I, H ADC, A H MOV, 

M E MOV, H INX, M D MOV, H DCX, PSW POP, RET, 

-- > 


13 

1 *^r 










H-Block 235- 

0|C BB short subroutines AUT0R1 ect. , LVRSTAT , WALKOVER ) 

1ISUBR AUT0R1 3 A MVI, VRSTAT R1 STA, 81 A MVI, VSTATUS R1 STA, 
2! RET/ ( sets vauto / vforw , vact / vrun ) 

3! SUBR AUT0R2 3 A MVI, VRSTAT R2 STA, 81 A MVI, VSTATUS R2 STA, 
4! RET, 

SiSUER AUT0R3 3 A MVI, VRSTAT R3 STA, 81 A MVI, VSTATUS R3 STA, 
G! RET, 

7SUBR AUT0R4 3 A MVI, VRSTAT R4 STA, 81 A MVI, VSTATUS R4 STA, 
8| RET, 

9!SUBR LVRSTAT C load vstat for all runners in— A value ) 

10! VRSTAT R1 STA, VRSTAT R2 STA, VRSTAT R3 STA, VRSTAT R4 STA, 
11! RET, 

12ISUBR WALKOVER ( walked runner at base ) 

13! 1 A MVI, CAUGHT STA, THROWAROUND STA, RET, 

14 i — > 

15! 

H-Block 23G- 

©!< BB short subroutines MULTHLBY4 , KILLOF , WAIT ) 

1!CODE MULTHLBY4 

2! 7 H BIT, PSW PUSH, ' COMPHL CNZ, L SLAR, H RALR, 

3! L SLAR, H RALR, PSW POP, ' COMFHL CNZ, RET, 

4 ! CODE KILLOF (. stop outfield tractor ball contro 1 ) 

5! 0 H LX I, OFDX SHLD, OFDY SHLD, STND H LXI, OFPA SHLD, 

G! A XRA, OFTELGO STA, RET, 

7! CODE WAIT ( given A wait period stop ever'j thing ) 

8! BEGIN, PSW PUSH, 0FF A MVI, BEGIN, A DCR, 0=, END, 

9! PSW POP, A DCR, 0=, END, RET, 

10!: TWAIT ( terse wait period ) 

11! El BEGIN FF 0 DO LOOP CREDITS B@ DUP IF 1 = IF CNSW12 B@ IF 
12! ELSE DROP 1 THEN ELSE DROP 1 THEN ELSE DROP THEN 
13! 50 0 DO LOOP 1 - DUP 0= END 

14! DROP DI } 

15! — > 

H-B1 ock 237- 

0! ( BB short subroutines 1NFLDACT OUTFLDACT ALLFLDACT CMTALL ) 

1[CODE SETACT ( sets avtive bit in status ) 

2! (in HL-status 1st gu\j A- # of gu^s ) 

3! VLENGTH D LXI, 

4! BEGIN, VACT M SET, D DAD, A DCR, 0=, END, RET, 

5!CODE INFLDACT ( set infielders active ) 

6! VSTATUS PT H LXI, 5 A MVI, ' SETACT CALL, RET, 

7!CODE OUTFLDACT ( sets outfielders active ) 

8! VSTATUS LF H LXI, 3 A MVI, ' SETACT CALL, RET, 

9!CODE ALLFLDACT ( sets all fielders active ) 

101 7 INFLDACT CALL, ' OUTFLDACT CALL, NEXT 

11',; MOM 4200 7A00 828 48 CPOST 4400 7F00 8828 A” OME” SFOST J 
12!; VIS 70O 7A00 828 5S CPOST 900 7F00 8828 A" ISITOR” SPOST J 

1 3 5 — > 
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-Block 238- 

( BB shor-t subroutines BLERASE , WUPWRT , CHGS , DWAIT ) 

SUBR BLERASE < erases ball ) 

X PU5HX , VMAGIC BL X LXIX, ' VERASE CALL , VACT VSTATUS X RESX, 
X POPX, ( stop ball ) NOBOD H LXI, VPAT BL SHLD, RET, 

CODE PTAUTOTM ( pitch auto timer ) 

TIMEOUT H LXI, FLDCLR LDA, A ANA, TIMEDCR CZ, NEXT 
: WUPWRT ( write whos up "For Plash ) 

PTAUTOTM PLYR1UP B@ IF HOM ELSE VIS THEN ,* 

: CHGS 1C00 2000 828 A" CHANGE SIDES" SPOST } 

: DWAIT El 0 DO FF 0 DO LOOP LOOP DI ; 

— > 


-Block 239- vi-.- 

( BB shor-t subroutines FLSHTON FLSHTOFF FLSHWUP DOCHGS ) 

: FLSHTON FLSHWHO ! FLSHON BONE FLSHTI ME BONE ; 

: FLSHME FLSHWHO @ EX 

SUBR FLSHWUP ( handle whos up flasher ) 

X FUSHX, Y PUSHX, 

FLSHCNT H LXI, FLSHON LDA, A ANA, 

A ANA, 0=, IF, 1 M MV I, 28 A MVI, 

THEN, FLSHTI ME STA, DOVERB FLSHME 

ELSE, A ANA, 0<>, IF, 0 M MVI, DOVERB FLSHME THEN, 

THEN, Y POPX, X POPX, RET, 

CODE FLSHOFF E PUSH, A XRA, FLSHON STA, DI, FLSHWUP CALL, 
B POP, NEXT 

: DOCHGS ' CHGS FLSHTON 28 DWAIT FLSHOFF GAMEOVER BZERO J 


M A MOV, 0< >, IF, 

ELSE, 0 M MVI, 8 A MVI, 


CHKFLSHST AY ) 


H-Block 240- 

( BB shor-t subroutines 
: WUPTON ' WUPWRT FLSHTON ,’ 

: CHKFLSHSTAY ( when i seep -turn off check for wupwrt ) 
FLSHSTAY B@ IF FLSHSTAY BZERO FLSHCNT B@ FLSHOFF IF - 
DOWUP E@ IF WUPWRT WUPTON ELSE WUPFLSH B@ IF WUPWRT WUPTON 
THEN THEN ELSE C not flshcnt ) DOWUP E@ IF WUPTON ELSE 
WUPFLSH Et IF WUPTON THEN THEN THEN WUPFLSH BZERO 
DOWUP BZERO THEN ; 

BASE! ;S 


10 ! 
11 \ 
1 c. I 

13 J 

14 ! 

15 ! 










+-Block 241- 

0|( VGS write routines relabs , magic equates ) 

1|( MAGflC REGISTER BITS ) 

2!2 C= MRROT 3 C= MREXP 4 C= MROR 5 C= MRXOR 
316 C= MRFLOP 7 C= MRFLIP 

4iSUER relabs ( relative X Y to magic address conversion ) 

51 ( in— EC = exp/'mag DE — x HL = 'g ) 

G| ( out— EC=exp/magtsh i Ft NL=scradr ) 

7i HA MOV, 0 H MV I, A L MOV, 

Si H DAB, H DAD, H DAD, 

31 H DAD, D PUSH, L E MOV, H D MOV, H DAD, H DAD, C *64 > 

101 D DAD, < *S0 ) XCHG, H POP, ( x 1 

111 LA MOV, < SAVE BIT CNT ) H L MOV, 0 H MVI, D DAD, C xt\j ) 
12! RLC, RLC, HEX 3 AN I, 

13! MRFLOP C BIT, 0<>, IF, NEG, 0=, IF, H DCX, THEN, THEN, 

14| 3 ANI, A E MOV, C A MOV, FC ANI, E ORA, A C MOV, RET, 


15! — > 

+-Block 242- 

0! ( VGS write routines reloff ) 

1!SUBR reloff C compute relative offset of x , m of pattern ) 
2! ( in— BC=exp/mag DE = x HL=Y IY=relpatadr ) 


3! ( out— BC = exp/mag DE=xtoff HL = \itoff IY=patadr ) 

4! H PUSH, XCHG, ©YD LDX, 0 E MVI, ( X offset ) 

5! D SRAR, E RARR, D SRAR, E RARR, 

6! < MREXP C BIT, 0<>, IF, E SLAR, D RALR, ) ( *2 ) ( THEN, ) 

7! MRFLOP C BIT, 0< >, IF, D DAD, ELSE, A ORA, D DSBC, THEN, 

Si XTHL, C push X+off, HL<-Y ) 1 Y D LDX, 0 E MVI, t Y offset ) 
9! MRFLIP C BIT, ©<>, IF, D DAD, ELSE, A ORA, D DSBC, THEN, 

10! D POP, Y INXX, Y INXX, ( offset pattern ) RET, 

11 ! — > 

12 ! 

13 ! 

14 ! 

15 i 

+-Block 243- 

© j ( VGS write routines write ) 

11SUBR write ( software write with x m size ) 

2! ( IY= patadr BC = ex/magietshf DE = Y/X size HL= screenadr ) 

3! ( does not do shifter flush patterns must flush themselves ) 

4! B PUSH, B A MOV, XPAND OUT, C A MOV, MAGIC OUT, 

5! Y PUSHX, B POP, ( patadr ) MRFLOP A BIT, 0<>, IF, 

Gi BEGIN, < m ) D PUSH, H PUSH, 

7 ! BEGIN, ( x ) B LDAX, A M MOV, H DCX, A M MOV, H DCX, 

S ! B I NX, E DCR, 0=, END, 

9S H POP, 50 D LX I, D DAD, D POP, D DCR, ©=, END, 

10! ELSE, C no flop ) 

11! BEGIN, < m ) 0 PUSH, H PUSH, 

12! BEGIN, <; x ? B LDAX, A M MOV, H I NX, A M MOV, H I NX, 

13! B I NX, E DCR, 0=, END, 

14! H POP, 5© D LX I, D DAD, D POP, D DCR, 0=, 

15" THEN, £ POP, ( sagic ) RET, > 


END 
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-Block 244 

C VGS write routines 
SUBR writep C 
( IY=patadr 
0 Y E LDX, < 

0 Y D LDX, < 

CODE WRITE C 
( i n~ x , m 

C WRT5YS 


writep 


, WRITE ) 

software write with pattern size on pattern ) 

BC=ex/mag+shf HL=scradr - ) 

X size ) Y INXX, 

Y size ) Y INXX, write JMP, 

write with X Y sizes j pattern wiirh no header ) 

, patadr , nj/x size ex/mag ) 

set: for patrtrern board res for software write ) 


C out— pattern on screen ) 

Y PUSHX, H POP, EXX, B POP, C ex/mag ) W POP, C 

Y POPX, ( patadr ) D POP, C Y ) XTHL, C H<-X 5< 
XCHG, C X<—>Y ) relabs CALL, D POP, C sizes ) 
write CALL, EXX, H PUSH, Y POPX, NEXT 

- > 


s i zes 
-s i zes 


pattern 
) 


) 


+-Block 245- 

C VGS write routines WRITER ) 

CODE WRITR ( write with a relative 
C in- x , m , relpatadr , ex/mag 

C WRTSYS set for pattern board res for software writ* 
( out— pattern on screen ) 

Y PUSHX, H POP, EXX, B POP, Y 
reloff CALL, relabs CALL, 

Y POPX, NEXT 


POPX, H POP, D POP, 


writep 
-> 


CALL, EXX, H PUSH, 


246- 

routines epost ) 

, top 4 bits of exp ) 
small font if set large 
zero suppress if set ) 
CODE epost C post an ascii-character on 
( in“ x , m , opt + exp/mag , ascii-char 
out— newx , m 


-E1ock 

VGS character 
C option bits 
C= SMFONT t 
C= ZEROSP ( 


font if res ) 


10 ! 

11 I 

'-5 fi 

i 4 or 3 

13 
1 4 ! ■ 

1 5 5 


< 

Y 

B 

C 

4 4 

Si- l 

FI 

ftflMP tMM 

ELS 


PUSHX, H POP, 

POP, i ex/mag 
large font ) 
CP I , > = , IF 


, o p t + e x / m a g 
EXX, H POP, ( L< —char ) L 
) SMFONT B BIT, PSW PUSH, 


the 

) 

character on 
A 


screen 


see opt 


screen 

MOV, 


S£, 


i smaI 1 


, 36 
THEM , 
f out 


SUI, ELSE 
THEN, 

) 20 SUI, 


30 CPI 


> = 




IF, 


IF, 










+-Block 247- 

© ! ( VGS character routines cpost con'ir. ) 

11 A L MOV, 0 H MV I , 

2! L SLAR , H RALR , < *2 ) H D MOV, L E MOV, 

3! L SLAR, H RALR, C *4 ) 

4! L SLAR, H RALR, ( *8 ) D DAD, C *10 ) 0 characters D LXI, 

5| F5W POP, < font ) 0< >, IF, ( small font: ) 

G | H SRLR, L RARR, < /2 = *5 ) © smallfont D LXI, THEN, 

7! D DAD, H PUSH, Y POPX, ( patadr ) 

8! H POP, C Y ) D POP, ( X ) 

3| D PUSH, H PUSH, B PUSH, 

I©! relabs CALL, ©A01 D LXI, SMFONT B BIT, 0<>, IF, 5 D MVI, 
llj 1 A MVI, ELSE, 2 A MVI, THEN, PSW PUSH, ( disp value ) 

12! write CALL, PSW POP, B POP, H POP, XTHL, < H<-X ) 

13! AD MOV, © L MVI, D DAD, C new x ) 

14! XTHL, H PUSH, B PUSH, EXX, H PUSH, Y POPX, NEXT 
15! — > 

i -—Block 24-8 - 

0!C VGS character routines CPOST , SPOST , 3DR0P ) 

1i: 3DR0P DROP DROP DROP ; 

2j: CPOST ( post an ascii-character on the screen J see options ) 
3! C in= x , j opttex/mag , ascii-char ) 

4i C out- character on screen ) 

5 I cpost: 3DR0P J 
G ! 

7[: PPOST ( post: an ascii-string on the screen leaving x and 
8! options for next sirring J see options ) 

3! ( in— x , , opt + ex/rnag , sirring ) 

I©! C i.e. 0 © 8828 28 A" STRING" PFOST ) 

11! < out:— character on screen x , m , opt + ex/rnag ) 

12! COUNT OVER + SWAP DO I E@ cpost LOOP } 

1 3 ! 

14 i — > 

15 ! 

H-Block 243 ——- 

©!( VGS character routines NPOST ) 

1!: SPOST C post an asci i-str ing on “the screen ; see options ) 

2! ( in— x , m , opt + ex/mag , sirring ) 

3! ( i.e. 0 © 8828 A" STRING" SPOST ) 

4! ( out- character on screen ) 

5! PPOST 3DR0P | 

6 ! 

7!: dpost ©F AND OVER 400© AND 400© XOR OVER OR IF 30 + 

81 SWAP BFFF AND SWAP ELSE DROP 20 THEN cpost f 

Q il 

10} : NPOST ( pjosi: a bed number on the screen l 

1 1 ■] C i n = x , u , opt ■+ e x / m a g , variable a d r , 

1 21 C out- c harficter on screen ) 

’IS" 0VER — SWAP D0 I BO SWAN dpost I B# dpost 
141 3DR0P | 

1 5 ! — > 


see options ) 
# of b \fir e s ) 

LOOP 









+-Block 25®- 

®|( VGS character routines BCDt , BCDt! ) 

1 j CODE BCDt C binary to decimal arithmatic ) 

2j ( in- integer 1 , integer 2 ) 

3| ( out- bed sum of integer 1 and 2 ) 

4! H POP, D POP, E A MOV, L ADD, DAA, A L MOV, 

5 j DA MOV, H ADC, DAA, A H MOV, H PUSH, NEXT 

Gj: BCD+! ( add a bed number to a variable ) 

7 \ C in- inc-amount , msb-addr , # b t e s ) 

8! ( out- value in variable incermented in bed ) 

9! 1- OVER t DO I E@ BCD+ DUP I B! SHAB C HEX 1 FF AND 
I®i -1 +LOOP DROP j 
11 ! — > 

12 ! 

13 ! 

14 j 

15 i 

+---Block 251- 

®j( BB vector write VHRITE ) 

1jCODE VWRITE C does reloff relabs patbrd from vector IX ) 

21 VXPAND X B LDX, VMAGIC X C LDX, VXH X D LDX, VXL X E LDX, 

31 VPATH X H LDX, VPATL X L LDX, H PUSH, Y POPX, 

4! VYH X H LDX, VYL X L LDX, 

5j reloff CALL, C calculates relative offset ) 

61 relabs CALL, ( calculates magic add. ) 

7! H VSCRADRH X STX, L VSCRADRL X STX, C set scradr for erase > 
Sj writep CALL, C write it ) 

9! C VMAGIC X STX, ( save shift for erase ) 

1®! RET, 

11 ! — > 

12 ! 

13 | 

14 ! 

1 5 ! 

+-Block 252- 

0i( EB interupt vector erase VERASE ) 

1iCODE VERASE C does pattern board erase from vector IX ) 

2! VXPAND X B LDX, VMAGIC X C LDX, VPATH X H LDX, VPATL X L LDX, 
3! H I NX, H I NX, C abs ) H PUSH, Y POPX, 

4! VSCRADRH X H LDX, VSCRADRL X L LDX, 

5! writep CALL, RET, 

6 [DECIMAL ,*S 

7 i 

jp„ a 

9 f 

1 0 } 


■'I 4 j 
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-Block 253- 

< BB i lrterrupi CHKGROUNDER ) 

BASE# HEX 

LABLE GVTBL ( grounder varb table ) 

0 , 40 , 40 , 40 ,0,0, ©,0, FFC0 , FFC0 , FFC0 
0 , 0 , 

CODE CHKGROUNDER ( if grounder adjust ball direction ) 
GRNDR LDA, A ANA, RZ, 

GRNDRVALUE LDA, A INR, 0D CPI, >=, IF, A XRA, THEN, 
GRNDRVALUE STA, H PUSH, GVTBL H LXI, ' INDEXW CALL, 
VXH X A LDX, 0AO CPI, ' COMPDE CC, H POP, D DAD, RET, 
— > 


15 ! 

+-Block 254- 

0|( BB interrupt TIMER ) 

1!CODE TIMER C interrupt timer routine ) 

THROWTIMER H LXI, TIMEDCR CALL, A ANA, 0<>, IF, 
THROWTIME STA, THEN, 

STRINGOFFTIMER H LXI, TIMEDCR CALL, 

A ANA, ©< >, IF, STRINGERASE STA, OLDSTRING LDA, 
STRING STA, THEN, 

TFT IMER H LXI, TIMEDCR CALL, A ANA, 0<>, IF, 

TFT I ME STA, THEN, 

WAITTHROW H LXI, TIMEDCR CALL, A ANA, 0<>, IF, 
THROWANM STA, THEN, 


11j CMOFTIMER H LXI, TIMEDCR CALL, A ANA, CMPOF CNZ, El, 
121 FLSHTI ME H LXI, TIMEDCR CALL, A ANA, FLSHWUP CNZ, 

13! TOTIMER H LXI, TIMEDCR CALL, A ANA, TAKEOFF CNZ, 

14! WALK H LXI, TIMEDCR CALL, A ANA, WALKOVER CNZ, 

15! — > 

+-— Block 255- 

0!C BB interrupt PERSPECTIVE ) 

1! TOOF H LXI, TIMEDCR CALL, A ANA, TOOFCK CNZ, RET, 

2 ! 

3 ! CODE PERSPECTIVE C pattern sine determined b\j ^ ) 

4! 0 E MV I, VYH X H LDX, 54 A MV I, H CMP, < , IF, 84 A MV I, 
5! < , IF, 0 D MV I, ELSE, 1 D MVI , THEN, ELSE, 3A A MV I, H 
£ ! < , IF, 2 D MVI, ELSE, IF A MVI, H CMP, < , IF, 3 D MV I, 

7! ELSE, 4 D MVI, THEN, THEN, THEN, 

S’ V P E R S # X A LDX, D CMP, ( crnp pers new old ) 

SJ D VPERS# X SIX, < >, IF, VHW VSTATUS X SETX, THEN, 

10i (to r ru n n e r s set commited if change ) 

11! RET, 

12 i — > 


’L 3 


H CMP, 
CMP, 










+ - 
0! C 
1 
2 


10 

VYH X H LDX/ VYL 

X L 

LDX, 

VDYH 

X 

D LDX/ 

VDYL X E 

LDX, 

1 1 

D DAD, C A MOV/ H 

CMP 

, >=, 

IF, 

( 

1 ow 

) A H MOV, 

ELSE , 

12! 

E A MOV/ 








13 ! 

H CMP/ </ IF, A H 

MOV, 

THEN 

, THEN 

/ H VYH 

X STX, L 

VYL X STX, 

14 ! 

RET/ 








15 ! 

— > 









0 

1 

2 

3 

4 

5 
£ 

7 

8 
9 

10 
1 1 


-B1ock 

BB interrupt 


CODE VECTOR < 
C001 B LXI/ ( 
VOF VSTATUS X 


A ANA/ 0=/ IF# 
, THEN/ THEN, 


257- 

VECTOR ) 

vectors and limit checks 
^ limits ) TAKEFIELD LDA, 

. _ .. BITX, 0< >, IF/ 4003 B LXI 

C outfielder limits ) VXH X D LDX/ VXL X 
E LDX/ VDXH X H LDX/ VDXL X L LDX/ 

9 DIVHLBY4 CALL, ( comm- resolution ) D DAD/ 

VBL VSTATUS X BITX/ ' CHKGROUNDER CNZ, 1 A MVI/ H CMP/ 
>=, IF, A H MOV/ ELSE/ 4E A MVI/ H CMP/ </ IF/ A H MOV/ 
THEN/ THEN, H VXH X STX/ L VXL X STX/ C limit chk ) 


4-Block 258 

C BB interrupt 
LAELE EWTEL ( 

0EAF / £98 
3A7 / 0F98 / * 

CODE BATH ITCHK C 
M A MOV/ C ‘ 

VYH BL LDA/ 

VX EL LHLD/ ' MULTHLBY4 
M CMP/ RNC/ HITYET LDA/ 


HITTIME 

— > 


BATH ITCHK ) 
bat window table ^ 

0DAF / 0D9S / 

0DA3 / 0D38 / 

_ check window 

C swing ) A SLAR/ 

E SUE/ D CMP/ rcnu/ 

CALL/ H A MOV/ 
A ANA/ RNZ/ 


span Y/ 
09AF / 0F98 
0EA2 / 0£9£ 
for hit ) 
EWTEL H LXI 
RNC/ H I NX/ 


xspan X/ ) 

/ 08AC / 1098 


H 


INDEXW CALL/ 

I NX/ H FUSH/ 

H POP/ M SUB/ H I NX, 
NR/ 

STA/ HITGOING ST A/ BLERASE CALL/ RET/ 


A II 


12 i 

13 j 
14! 

15 ! 

4----Block 259-“---- 

0|C BE interrupt EATWRITE / BATSWING ) 

1 !LABLE BSWINGTABLE EATD90 / BATD45 / BATD30 / 

2! BATMID / BATU30 / BATU45 / BATU90 / 

31C0DE EATWRITE C xor bat from swingt^jpe ) 

4| H PUSH/ M A MOV/ BSWINGT ABLE H LXI/ ' INDEXW CALL/ 

5! D PUSH/ ( pattern add. ) Y POPX/ 2£00 D LXI/ AF00 H LXI/ 

61 828 B LXI/ ( exp/mag ) 

7! re 1 off CALL/ re labs CALL/ writep CALL/ 

Si H POP/ RET/ 

9"CODE BATSWING ( swings bat if appropriate ) 

10s SWIMGTYFE H LXI/ SWING LDA/ A ANA/ 

11 1 0< >/ IF/ STRIKE STA/ M A MOV/ £ CPI / ( end of swing 7 ) 

12! < * IF; ' BATMRITE CALL/ M I NR/ ' EATWRITE CALL/ 

13 ,i HITGOING LDA/ A ANA/ ' BATH I TCHK CZ/ C check for hit ) 

"141 ELSE/ A XEA/ SWING STA/ 18 A MVI/ SWINGTIME STA/ 
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1® 

II 
1Z 

13 

14 

15 

® 

1 

Z 

3 

4 

5 
0 
7 
<5 
9 

t 0 
1 *5 
12 
t 3 
14 


< BB 


-B1ock 

interrupt ) 

C swing completion resst bat ) 

ELSE* C swing not set ) M A MOV* 6 CPI# 

= # IF# A XRA # HITGOING ST A# SWINGTIME LDA # A ANA # 

®=# IF# ' BATWRITE CALL# 0 M MVI# ' BATWRITE CALL# 
ELSE# A DCR # SWINGTIME STA# 

THEN# THEN# THEN# RET# 


— > 


+-Block 201- 

( BB interrupt OFBLCHK ) 

SUER OFBLCHK ( chk for catch or close when cmsw ) 

( in- D max distance to check for ) 

VLENGTH B LXI# VX EL LHLD# 

VMAGIC LF Y LXIX# VYH BL LDA# A INR, A E MOV# 3 A MVI, 

BEGIN# H PUSH# EXAF # VYH Y A LDX # E SUE# CY# IF# NEG# THEN# 

D CMP# C max dist ) < # IF# 

D PUSH# VXH Y D LDX# VXL Y E LDX# A ANA# ( res c^ ) 

D DSBC # ' COMPHL CC# D POP# 1® A MVI# H CMP# >=# IF# 

' MULTHLBY4 CALL# H A MOV# D CMP# <# IF# 1 A MVI# H POP# RET# 
THEN# THEN# THEN# 

E DADY# EXAF# A DCR# H POP, ®=# END# RET# 

— > 


HI -B lock 202- 

C BE interrupt 
CODE BLPOSCHK 

HITYET LDA# A ANA# 
VYH X A LDX# BC CP 
HITYET LDA# A ANA# 
VY PT LHLD# VDSTY 
A XRA # VUFDATE* BL 
SI A MVI# VSTATUS 
STRIKE LDA# A AHA# 
ELSE # CBALL A MVI , 


X R A 


ft 

1 A MVI 


ELSE# 
VXH X 
THEM # 


{ 


A LDX 


HITYET ST 
h © c k f o r 
7* ft H F 


BLPOSCHK ) 

®=# IF# C pitch check ) 

I# >=# IF# HITTIME LDA# A ANA# RNZ # 

RNZ # VX PT LHLD# VDSTX EL SHLD # 

BL SHLD# THWBLFA H LXI# VPLAYACTPC EL SHLD# 
STA# 4 A MVI# VVEL BL STA# 

BL STA# EAL H LXI# THWPA SHLD# 

®< ># IF# CSTRIKE A MVI # 

THEN# STRING STA# 

TA# STRIKE STA# SWINGGO STA# 

A# THROW STA# THROWAROUND STA# 

cross the plate ) ©A9 5 BI # 5 CPI# RNC# 

I# 2 CPI# RNC# 1 A MVI# STRIKE STA# 










03 U ) © 


263 


+ 


B 1 ocli 


0 
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( BB interrupt ) 

ELSE, < intercept check for catch in outfield ) 

VYH X D LDX, 3C A MVI, D CMP, RC, MOCATCM LDA, A ANA, RN2, 

5 D MVI, OFBLCHK CALL, A ANA, R2, INAIR LDA, A ANA, 0<>, IF, 

2 A MVI, LVRSTAT CALL, 

OFCATCH STA, CAUGHT STA, HHOSUP LHLD, 

PLAYQN SHLD, A XRA, ELSE, A INR, OFPU STA, THEN, THRQWANM STA, 
A INR, NOCATCH STA, Y PUSHX, H FOP, WHOTHROWS SHLD, 

BLERASE CALL, ' KILLOF CALL, 

A XRA, OFTBLGO STA, TOOF STA, ( ofl t.o. timer ) THEN, RET, 

— > 


15 


+■ 


Block 264 


( BB interupt main WINTBL , INTERRUPT ) 
LABLE WINTBL C which interrupt table ) 

VMAGIC R3 , VMAGIC 1ST , VMAGIC 3RD , VMAGIC 


RF 


FORWARD INTTOF 
ICODE INTERRUPT 
INTFLAG LDA, A 


.ASSEMBLE 
INR, INTFLAG STA, 


2 CPI 


IF, 


LABEL 
— > 


INTTOF B PUSH, Y PUSHX, X PUSHX. 


1 1 
12 

13 

14 

15 


0 

1 

2 

3 

4 

5 

6 

7 

8 
3 

1 0 

1 1 


--Block 265- 

BB interupt main ) 

WHICHINT LDA, A INR, 4 CPI, 
WHICHINT STA, WINTBL H LXI, 
C 3 -gu^js ever\j 4 interrupts 
- > 


=, IF, A XRA, THEN, 

' INDEXW CALL, D PUSH, X POPX, 


) 
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+-B1 ock 

( 


266 - 


main vectoring/ does 3 vectors given IX-starting vect ) 
3 A MV I , VLENGTH D LXI, 

BEGIN PSW PUSH, D PUSH, VACT VSTATUS 
0< >, IF, A XRA, BLWAIT STA, 

' VERASE CALL, ( erase ) 

VECTIX SIXD, ' PLAYACT CALL, 

' VECTOR CALL, C vector 

' PERSPECTIVE CALL, 


THEN, 

D DSEC, 
0=, END, 

— > 


VWRITE CALL, 

D POP, A XRA, 


< 


( change of sine 
write ) 


X EITX, 


< placer action control ) 
limits fe perspective chk ) 

) 


C res earn ) X PUSHX, H POP. 


C nxt vector ) H PUSH, X POPX, PSW POP, A DCR, 


H-Block 267- 

i( BE interupt ball and bat process ) ' 

! ' BATSWING CALL, C if swing ever\j ini: . ) 

! VMAGIC BL X LXIX, VACT VSTATUS X BITX, 

1 0<>, IF, BLWAIT LDA, A ANA, 0<>, IF, 

! ' WAIT CALL, ELSE, 2 A MV I, BLWAIT STA, THEN, 

! ' VERASE CALL, C erase ) 

I VECTIX SIXD, ' PLAYACT CALL, C ball action logic ) 

1 ' VECTOR CALL, C vector & limit chk ) 

i ' VWRITE CALL, t write ) 

! THEN, 

i ' BLPOSCHK CALL, ( check pitch or outfiled catch ) 

i — > 


i-E 1 ock 268- 

!C BB interrupt ) 

! X POPX, Y POPX, Y PUSHX, X PUSHX, ' MUSCPU CALL, 

i ' TIMER CALL, C system timers decrimented & f 1 aged ) 

j TAKEFI ELD LDA, A ANA, ' TBALLPRC C2, ( tractor ball ) 

j X POPX, Y POPX, CHKC0IN1 CALL, CHKC0IN2 CALL, 
l STRING LDA, A ANA, 0< >, IF, DOVERB STRINGPRC THEN, 

I SCORESHOW LDA, A ANA, 0< >, IF, DOVERB SCOREME THEN, 

I B POP, 

I INTFLAG LDA, A DCR, I NTFLAG STA, INTTOP JNZ, THEN, 

! I NEXT .END 

a 

ii 


14 . < 

15 i 
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MV I , THEN, 
THEN, M DCR, 


-Block 269- 

C BE interrupt call INTERRUPTS© , HMRINT , SI0 , SI1 

I CODE HMRINT C homer shill interrupt ) 

HMFLSHCNT H LX I, M A MOV, A ANA, 0=, IF, 

HMRFLSH LDA, 1 XRI, HMRFLSH STA, 20 M MVI, 

A ANA, 0< >, IF, 7 A MVI, 0 D MVI, ELSE, 7 D 
0 OUT, 4 OUT, D A MOV, 1 OUT, 2 OUT, 3 OUT, 

INEXT 

<INTERRUPTS INTERRUPTS© 

73 I * INTERRUPT INTERRUPTS> 

<INTERRUPTS INTERRUPTS1 

73 I' HMRINT C0 I' INTERRUPT INTERRUPTS > 

: SI0 INTERRUPTS© ISTART j : SI1 INTERRUPTS! 

BASE! ,-S 

;s 


ISTART 


-Block 

( BE field table 
HEX 

LABLE DUGOUT 0003 


270- 

dugout pattern 


0 


cn1ine ) 


0 80 0F © © E© IF © 0 F© 7F © 0 FC FE 
0 © 7E 78 © 80 IF 1© 0 C0 ©F © © F© 3 © 0 F8 1 0 
0 7E © 0 © 3F 0 © 8© IF 0 0 80 IF 0 © 0 7F 0 0 0 FE 0 0 
©78000100012400 24STF 24STF 24STF B, B, B, B, 

BTABLE FIELD 

9D B, AC E, 0 B, 3E B, 1 B, 2D B, 4 B, 24 B, 8 B, ID B, 

©D B, 16 B, 14 B, 0D B, IF B, ©6 B, 28 B, 03 B, A© B, 03 B, 

CODE online ( calls vector line write ) 

B PUSH, Y PUSHX, X PUSHX, VECTOR CALL, 

X POPX, Y POPX, B POP, NEXT 
— > 


t —--“Block 271- 

C BB line vector routines CNLINE , DLINE ) 

CODE strtline C given X Y sets up start of line ) 

H POP, C h > D POP, C x ) E SLAR, D RALR, E SLAR, D RALR, 

E SLAR, D RALR, E SLAR, D RALR, E SLAR, D RALR, 

E SLAR, D RALR, ( adjust x for crelabs ) E PUSH, 

© C MVI , 

relabs CALL, 3 ANI, BIT-POS STA, 4©0© D LXI, D DAD, 


SADR SHLD, E POP, NEXT 


CNLINE 
Y I N 5 X I N 


cant i nue 

online j 


line to this point 


given 


X Y ) 


t 2 ! 

1 3 3 
14 i 

13 3 • 


DLINE C draw a 
y j x r y I !\! 5 Z P U P 

S IA A B i set v for 


line , given X Y start coor X Y ending coor ) 

Y-AXIS ! X-AXIS ! 

crelabs ) strtline online ; 
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-Block 272- 

BB line vector routines RECTAN f OUTLINE ) 

RECLINE 4 PICK 4 PICK 2DUP SWAP 6 PICK + SWAP DLINE y 
RECTAN ( in X, Y, X length, Y length, pxtsjpe set: ) 

BEGIN RECLINE ROT 1+ ROT ROT 1- DUP 0= END DROP DROP DROP 
DROP y 

OUTLINE ( creates rectanguler outline ) 

( in- X / Y t X length , Y length ; pxt\jpe set ) 

4 NDUP DROP 3 PICK t OVER 4 NDUP DLINE 5 PICK + CNLINE 
3 PICK t CNLINE DROP DROP CNLINE y 

SBO 370© B00© 308 BALLS B@ CPOST 3F00 B000 308 STRIKES B@ 
CPOST 470© E000 308 OUTS B@ CPOST ; 

> 


Block 273 


0 
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C BB field write main FIELDWRT > SUP ) 

BV~ FINDEX 

: GETF FINDEX B@ FIELD B@ FINDEX It! j 
: REVX 13F GETF - y 

: FIELDWRT ( write field outline ) 

GETF GETF GETF GETF DLINE 

8 0 DO GETF GETF CNLINE LOOP C left side 
FINDEX BZERO REVX GETF REVX GETF DLINE 
8 0 DO REVX GETF CNLINE LOOP ( right side 


) * 


SUP SCO© 8828 A" UP" SPOST y 

SCRS IF 8A 18 ©E RECTAN 107 SA 18 0E RECTAN 
B00 SC00 308 30 CPOST 4500 8C00 308 30 CPOST 
FLFILL El 0 400© 3CO0 FILL DI y 
ZERORAM El © 7C30 270 FILL 3 OFTFCNT E! DI j 


i — > 

+-Block 274 


!< BB field write main FL ) 

1 HEX 

i : FL ( set up al1 of background ) 
l ZERORAM FLFILL 

S EI PX1 FIELDWRT 

! 1©C0 6600 BASEPAT 4428 WRITR 3FC0 6600 BASEPAT 4428 WRITR 

\ 2880 4C00 BASE2PAT 4428 WRITR 

1 280© AC00 MOMEFLATE 8808 WRITR 260© AFO© EATD90 8828 WRITR 

1 0C AA 6E 15 OUTLINE 
i 40© B000 828 A" INN" SPOST 

] BO© AF00 88A8 A" 1 2 3 4 5 6 7 8 3” SPOST 

j C4 AA 6C 15 OUTLINE 330© B0©0 828 42 CPOST 
I D 7 A E 10 0E RECTAN 5 B © 0 B © 0 0 828 53 C P 0 S T 

] F7 AE 1© ©E RECTAN 430© B00© 828 4F CPOST 

14 HEIDI 117 AE 10 ©E RECTAN 


15 ! — > 










-Block 


275- 
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( BB field wr i -te ) 

3300 SD00 DUGOUT 828 WRITR 1000 8000 OUGOUT 8G8 WRITR 
HOM VIS SCRS EIDI 30 DUP DUP BALLS B! STRIKES B! OUTS 
F00 SUP 

300 A300 8828 A" CREDITS" SPOST EIDI ; 

DECIMAL JS 


-Block 280-- 

( PIXEL TABLES ) BASE® HEX 
{ 2 FOUR } FORWARD { } } 

V = PXTYPE V= XIN V= YIN V= Y-AXIS V= X-AXIS 


V= BIT-POS V- SADR V = 

BTABLE PXT0 0,0, 

BTABLE PXT1 40 B, 10 B, 4 B, 1 B, 

: PX1 © PXT1 PXTYPE ! ; 

: PX0 0 PXT0 PXTYPE ! } 

BTABLE MASK 3F E, 0CF B, 0F3 B, 0FC B, 
BASE! — > 


V-PXTYPE V= V-MODE ( 0= write 1= 


10 

1 1 
12 
13 


-Block 281- 

C VECTOR GENERATOR ) 

FOUR VECTOR FOWR XYLOOP FOUR X-RET FOWR Y-RET 
FOWR INC-X FOWR DEC-X FOWR INC-Y FOWR DEC-Y 
FOWR YSTEP FOWR XYSHIFT FOWR SI NCR 
FOWR XYTEST FOWR PWRT 

ASM .ASSEMBLE C START 2 PASS ASSEMBLER HERE ) 

LABEL INC-X E RRCR, E RRCR, C SHIFT BIT VAL > 

D RRCR, D RRCR, C SHIFT MASK ) CY^, 

E X X, IF, SADR LHLD, H I NX, SADR SHLD, THEN, 
X-AXIS LHLD, H I NX, X-AXIS SHLD, EXX, X-RET JMP, 
LABEL DEC-X E RLCR, E RLCR, ( SHIFT BIT VAL ) 

D RLCR, D RLCR, SHIFT MASK ) C Y ^, 

EXX, IF, SADR LHLD, H DCX, SADR SHLD, THEN, 
X-AXIS LHLD, H DCX, X-AXIS SHLD, EXX, X-RET JMP, 


— > 


B! SBO 


xor ) 
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< VECTOR GENERATOR ) BASE® DECIMAL 
LABEL INC-Y Y-AXIS H LXI, M I NR, 

D PUSH, 80 D LXI, SADR LHLD, D DAD, SADR SHLD, D POP, 
RET, 

LABEL DEC-Y Y-AXIS H LXI, M DCR, 

D PUSH, -80 D LXI, SADR LHLD, D DAD, SADR SHLD, D POP, 
RET, 

LABEL YSTEP PCIY, 

BASE! —> 


Y ) SI NCR JC, 


-Block 283- 

( VECTOR GENERATOR ) 

< INPUT IS XIN, YIN AS PLACE TO MOVE TO. NOTE SADR 6c BIT-POS 
MUST ALREADY BE SET, AS WELL AS X-AXIS AND Y-AXIS 1 

LABEL VECTOR X-AXIS LDED, XIN LHLD, A XRA, D DSBC, 

CY~, IF, INC-X X LX IX, 

ELSE, DEC-X X LXIX, XCHG, A XRA, 0 H LXI, D DSBC, THEN, 

Y-AXIS LDED, YIN LDA, E SUB, ( DIF OF Y ) 

CY-, IF, INC-Y Y LXIX, 

ELSE, DEC-Y Y LXIX, CMA, A I NR, C MAKE A + ) THEN, 

EXX, A L MOV, 0 H MV I, EXX, L E MOV, H D MOV, ( cop's X -to DE 

L ORA, A L MOV, (. OR X & Y ) H ORA, RZ, ( ret if 0 dif > 

( normalise — shif-t up un-til carrs occurs ) 

LABEL XYSHIFT H DAD, ( shif-t up combined X & 

XCHG, H DAD, < shif-t up X ) XCHG, 

EXX, H DAD, EXX, ( shif-t up Y > 

XYSHIFT JMP, LABEL SI NCR —> 

-Block 284- 

< VECTOR GEN > 

D PUSH, EXX, H PUSH, EXX, E POP, 

EXX, 

C PUT MASK IN D, PIXEL VALUE IN E 
BIT-POS LBCD, PXTYPE LHLD, B DAD, 

0 MASK H LXI, B DAD, M D MOV, 

H POP, ( X dif ) H B MOV, L C MOV, 

LABEL XYLOOP EXX, B DAD, CY, 

IF, PC IX, LABEL X-RET 

EXX, XCHG, E DAD, XCHG, CY, 

IF, YSTEP CALL, THEN, PWRT 
ELSE, EXX, XCHG, 3 DAD, XCHG, CY, 

IF, YSTEP CALL, PWRT JMP, 

THEN, 

XYLOOP JMP, 


C E MOV, B D MOV, ( Y parms ) 

-NOTE THESE GO IN ALT REGS ) 

M E MOV, 

EXX, 


JMF , 


THEN, 
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285- 

WRITE POINT AND TEST 


) 


( VECTOR GEN 
LABEL PWRT 
C WRITE THE POINT ) 

EXX, D PUSH, EXX, H POP, XCHG, H PUSH 
SADR LHLD, V-MODE LDA, A ORA, ©< >, IF 
N A MOV, D ANA, C MASK OFF ) 

E ORA, C OR IN BIT VAL ) A M MOV, 

D POP, C return Y sum ) 

C END CHECKS ) 

YIN LDA, A H MOV, Y-AXIS LDA, H CMP, 

D PUSH, A XRA, XIN LDED, X-AXIS LHLD, 
XYLOOP JN2, 

X-AXIS LDA, 3 ANI, BIT-POS STA, 

RET, 

.END C END 2 PASS ASSEMBLER ) 

J S 


, ( save Y sum 
, E M MOV, ELSE 

THEN, 


XYLOOP JNZ, 

D DSEC, D POP, 


) 


HI -Block 286- 

! ( COIN READING ROUTINE ) HEX 
!( A= mask of biirs "to look for ) 

"C D= # of "times "to "t r \j -to accept value ) 
j( E = # of consecutive values "to find ) 
j< H= port from which -to read ) 

j( L= value “to look for , PUSH DE, THEN HL, THEN A 3K3K ) 


FORWARD READPORT SUBR debounce .ASSEMBLE 
B PUSH, H C MOV, E B MOV, A H MOV, LABEL READPORT 
A INP, L XRA, H ANA, ©=, IF, E DCR, ©=, IF, ( good ) A INR, 
B POP, RET, THEN, READPORT JMP, 

THEN, D DCR, ©=, IF, A XRA, B POP, RET, THEN, 

B E MOV, ( tr\j again ) READPORT JMP, .END 


— > 


+— -Block 287- 

( BB coin routine CHKC0IN1 ) 

SUBR CHKCGIN1 C chk door 1 for coin drop ) 

CNTM1 LDA, A ANA, ©=, IF, ( waiting for coin ) 

20 A MV I, 1020 D LX I, 14DF H LXI, debounce CALL, 

A ANA, RZ, CNTM1 STA, CREDITS H LXI, M INR, 

STA, A XRA, SPBON STA, DOVERB MCOIN 16 IN, RET, 
waiting for coin "to drop ) 20 A MV I, 520 D LXI 
H LXI, debounce CALL, A ANA, RNZ, CNTM1 STA, 
THEN, RET, 


UPCRED 
ELSE, C 
1 4DF 

17 IN, 
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+-Block 268- 

0'( BB coin routine CHKC0IN1 ) 

1|SUBR CHKCGIN2 C chk door 2 for coin drop ) 

2| CNTM2 LBA, A ANA/ 0=/ IF, ( waiting for coin ) 

3! 10 A MV I/ 1020 D LXI, 14EF H LXI, debounce CALL, 

4! A ANA, RZ, CNTM2 STA, UFCRED STA, 

5! CREDITS H LXI, 15 IN, 1 A BIT, 0<>, IF, ( susan b dollar ) 
61 M INR, M INR, M INR, M INR, M INR, ELSE, 

7! M INR, THEN, 

A XRA, SPBON STA, DOVERB MCOIN 16 IN, RET, 

ELSE, ( waiting for coin to drop ) 10 A MVI, 520 D LXI, 

14EF H LXI, debounce CALL, A ANA, RNZ, CNTM2 STA, 

17 IN, THEN, RET, 


DECIMAL ;S 


+-Block 230- 

! ( I/O PORT DEFINES ) BASE® HEX 
| 3 C= HORCB 0A C= VERBL 
! ( MUSIC PORTS ) 

!10 C= TONMO 11 C= TONEA 12 C= TONEB 13 C= TONEC 

!14 C= VIBRA 16 C= VOLAB 15 C= VOLC 17 C= VOLN IS C= SNDBX 

!0D C= INFBK 0E C= INMOD 0F C= INLIN 8 C= CONCM 

|0C C= MAGIC 13 C= XPAND 8 C= INTST 0E C= VERAF 

!0F C= HORAF 

l-> 
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+-Block 292- 

0i( Interrupt routines ) 

1 I CODE ISTART DI, H POP, IPNT SHLD , 8 A MVI, INMOD OUT, 
2| IPNT { SWAB } A MVI, STAI-, IPNT A MVI, 

3! INFBK OUT, IM2, El, NEXT 

4!CODE DI DI, NEXT CODE El El, NEXT 
5!CODE XDI DI, A XRA, INMOD OUT, NEXT 

61C0DE SWAN H POP, L A MOV, RLC, RLC, RLC, RLC, A L MOV, 
7! H PUSH, NEXT C SWAP NIBBLES IN LOW BYTE ) 

8 ! — > 

9! 

10 ! 

11! 


-I-Block 293- 

!C VGS screen handeling verbs I NTCOMMERC1AL ,'FILL , SCRERASE ) 

j: INTHIGHRES ( intialise screen For commercial mode ) 

! 1 8, OUTP ( con, com port ) C0 0A OUTP C vertbl ) 

! 0 9 OUTP ( Korzcb ) ; 

!: FILL ( Fill screen whiFh constant da + a ) 

! C in- constant , starting address , # oF bvtes to Fill ) 

! C out- does sequential Fill whi+h constant speciFied ) 
i ROT ROT 2DUP ! SWAP DROP DUP 1+ ROT 1- EMOVE } 

I : SCRERASE ( erase en+ire screen ) 

| 0 4000 3F00 FILL ; 


+-Block 294 

j ( VGS NDUF ) 


ICODE NDUP EXX, E POP, C DCR, 1 H LXI, SP DAD, B DAD, B DAD, 
i BEGIN, M D MOV, H DCX, M E MOV, D PUSH, H DCX, C DCR, 0<, 
! END, EXX, NEXT ( DUPLICATE TOP N ELEMENTS OF THE STACK ) 

! — > 










is> m o» -j m m w w © cn co ro ^ © to c» %j imui u ro «-* © ui .p- u ro ^ © uj os 


-Block 235- j 

( HIGH SPEED RANDOM NUMBER ROUTINE 1 

2 ARRAY RND# ( 4 BYTE RANDOM,# BUFFER, SEED APPROPRIATELY ! ) 

CODE RND EXX, 0 RND# LBCD, 1321 H LXI, B DAD, H FUSH, 

2776 H LXI, B DADC, 1 RND# LDED, D DAD, XTHL, 

B DAD, XTHL, D DADC, XTHL, B DAD, XTHL, t> DADC, XTHL, 

E D MOV, B E MOV, C B MOV, 0 C MVI, B DAD, 0 RND# SHLD, 

H POP, D DADC, 1 RND# SHLD, EXX, 

0 H LX I,^ H D MOV, L E MOV, EXX, XCHG, B POP, 

0 H LXI, BEGIN, B SRLR, C RARR, CY, IF, D DAD, EXX, D DADC, 

EXX, THEN, B A MOV, C ORA, <>, IF, E SLAR, D RALR, EXX, E RALR, 
D RALR, EXX, SWAP JMP, THEN, EXX, H PUSH,, NEXT 
— > 


•i -Block 236- 

!< NUMBER TABLE FOR STRING DISPLAY ROUTINES ) 

!BTABLE characters C FILL IN CHARACTER TABLES ) 


! C 

SPACE 

0 1 

2 3 

4 

5 6 

7 

S 

3 ) 











100 

B, 

00 

B, 

00 

B, 

00 

E, 

00 

B, 

00 

B, 

00 

B, 

00 

B, 

00 

B, 

00 

B, 

! 3C 

B, 

7E 

B, 

6 6 

B, 

66 

E, 

66 

E, 

66 

E, 

66 

E, 

66 

B, 

7E 

B, 

3C 

B, 

! IS 

E, 

38 

B, 

IS 

B, 

IS 

B, 

18 

E, 

IS 

B, 

18 

E, 

IS 

B, 

3C 

B, 

3C 

B, 

!3C 

B, 

7E 

B, 

66 

E, 

06 

B, 

3E 

E, 

7C 

E, 

60 

E, 

60 

B, 

7E 

B, 

7E 

B, 

i 3C 

B, 

7E 

E, 

66 

E, 

06 

B, 

1C 

B, 

IE 

B, 

06 

B, 

66 

B, 

7E 

B, 

3C 

B, 

: 66 

E, 

66 

B, 

66 

E, 

66 

E, 

7E 

E, 

7E 

B, 

06 

B, 

06 

B, 

06 

B, 

06 

E, 

i 7C 

E, 

7C 

B, 

6@ 

E, 

60 

B, 

7C 

B, 

7E 

B, 

06 

B, 

fe 6 

E, 

7E 

B, 

3C 

B, 

! 3C 

B, 

7C 

B, 

60 

B, 

60 

B, 

7C 

E, 

7E 

E, 

66 

B, 

66 

B, 

7E 

B, 

3C 

B, 

! 7E 

6 / 

7E 

B, 

06 

E, 

0E 

E, 

0C 

B, 

1C 

E, 

IS 

E, 

38 

B, 

30 

E, 

30 

B, 

1 3C 

E jf 

7E 

E, 

66 

E, 

66 

B, 

3C 

B, 

7E 

B, 

66 

B, 

66 

B, 

7E 

B, 

3C 

B, 

!3C 

B, 

> 

7E 

B, 

66 

E, 

66 

E, 

7E 

E, 

3E 

B, 

06 

B, 

06 

B, 

3E 

6 jp 

3C 

E, 

i 

i 

_ 

-E 1 oc 
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C CHARACTER PATTERN TABLE FOR DISPLAY ) 


1!C A 

B 

C D 

E 

F 

G H 

i j 

K 

L 

M ) 











2 ! 18 

B, 

3C 

B, 

7E 

B, 

66 

B, 

66 

B, 

66 

E / 

7E 

B, 

7E 

B, 

66 

B, 

66 

B, 

3 ! 7C 

B, 

7E 

B, 

66 

B, 

66 

B, 

7C 

B, 

7E 

B, 

66 

B, 

66 

B, 

7E 

B, 

7C 

B, 

4 ! 3C 

B, 

7E 

E, 

66 

B, 

60 

B, 

60 

B, 

60 

B, 

6© 

B, 

66 

B , 

7E 

B, 

3C 

B, 

5 S 7 C 

B, 

7E 

B, 

66 

B, 

6 6 

B, 

66 

B, 

66 

B, 

66 

B, 

66 

B, 

7E 

B, 

7C 

B, 

6 ! 7E 

B, 

7E 

B, 

60 

B, 

60 

B, 

7C 

B, 

7 C 

B, 

60 

B, 

60 

E, 

7E 

B, 

7E 

B, 

7 I 7E 

B, 

7E 

B, 

60 

B, 

.60 

B f 

7C 

B, 

7C 

B, 

60 

B, 

60 

B, 

60 

B, 

60 

B, 

8 j 3C 

B, 

7E 

fc. 

60 

E, 

6 0 

B, 

60 

B, 

6E 

B, 

6E 

B, 

6 b 

B, 

7E 

B, 

3C 

B, 

3 ! 66 

B j? 

66 

F JT 

6 fo¬ 

B, 

6 6 

13 jp 

7E 

B, 

7E 

B , 

66 

B , 

66 

B , 

Sfcj? 

B, 

66 

B/ 

1© ; 3C 

B ? 

o r; 

1? j? 

il S 

B, 

IS 

B jr 

IS 

B, 

IS 

B, 

IS 

E, 

IS 

B, 

3C 

B, 

3C 

B, 

11 1 ©6 

F / 

iy 6 

E ? 

Q i0 

E j? 

y fo 

■R 

JL / 

06 

B, 

06 

B , 

66 

B, 

fo> fo 

B', 

7E 

B, 

3C 

B, 

‘12 166 

B * 

BG 


0 p 

B .p 

"7 r 

B jp 

78 

B, 

78 

B, 

SC 

B, 

6E 

B, 

66 

B, 

66 

'B, 

1 3 I 6 0 

IS/ 

G0 

44 JP 

60 

B .* 

fo 0 

Jt> jp 

60 

E / 

6 0 

B, 

fo 0 

E,' 

60 

B, 

7E 

B, 

7E 

B, 

14',’ C3 

8 / 


TS 

E7 

B - 

*J .O 

IS 

. 1.7 J 

BE 

B jp 

C3 

B, 

C3 

B, 

C3 

E, 

C3 

B, 

C3 

B, 















+--Block 298 


0 

( 

CHARACTER 

PATTERN 

TABLE 

CONT 


) 









1 

c 

N 0 

P 

Q R 

S 

T U 

V 

W X 

Y 

Z ) 











2 

66 

B, 

66 

B, 

76 

B , 

7E 

B, 

7E 

B, 

6E 

B, 

66 

B, 

66 

B, 

66 

B, 

66 

B, 

3 

3 C 

E, 

7E 

B JF 

66 

B, 

66 

B, 

66 

B, 

66 

B, 

66 

E , 

66 

B, 

7E 

B, 

3C 

B, 

4 

7C 

B, 

7E 

B , 

66 

E jr 

66 

B , 

7E 

B, 

7C 

B, 

60 

B, 

60 

B, 

60 

B, 

60 

B, 

5 

3C 

B , 

7E 

B, 

66 

B, 

66 

B, 

66 

B, 

66 

B, 

66 

B , 

6E 

B, 

64 

B, 

3A 

B, 

6 

7C 

B , 

7E 

E, 

66 

B, 

66 

B , 

7E 

B, 

7C 

B, 

6E 

E, 

66 

B, 

66 

B, 

66 

B , 

7 

3C 

B, 

7E 

B, 

66 

B, 

60 

B , 

7C 

B / 

3E 

E, 

06 

B, 

66 

B, 

7E 

B, 

3C 

6 jp 

8 

7E 

B, 

7E 

B, 

IS 

B, 

18 

B , 

IS 

B , 

IS 

B, 

IS 

'B, 

IS 

B , 

IS 

B, 

18 

B, 

9 

66 

B , 

66 

B, 

66 

E, 

66 

B, 

66 

B, 

66 

B, 

66 

B, 

66 

B, 

7E 

B, 

3C 

B, 

1© 

66 

B, 

66 

B, 

66 

B, 

66 

B, 

66 

B, 

7E 

B, 

3C 

B, 

3C 

E, 

18 

B, 

IS 

B, 

11 

C3 

E, 

C3 

B, 

C3 

B, 

DB 

B , 

DB 

B / 

DB 

B, 

FF 

B, 

E7 

B / 

C3 

B, 

C3 

B , 

12 

66 

E, 

66 

E, 

7E 

B, 

3C 

B, 

IS 

B, 

IS 

E, 

3C 

B, 

7E 

B , 

66 

B, 

66 

B, 

13 

66 

B, 

66 

B / 

7E 

B, 

3C 

B , 

18 

B , 

18 

B, 

18 

E, 

IS 

B, 

18 

B, 

IS 

B, 

14 

7E 

B, 

7E 

B , 

06 

B , 

0E 

E, 

1C 

B , 

38 

E, 

7© 

B, 

60 

B , 

7E 

B, 

7E 

B, 

15 

~~~ 

> 
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C 

VGS 

-SMALL 

FONT 

CHARACTER 

SET 
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BY 

5 

) 








1,'BTABLE smalIfont ©0 B* ©© B* 0© B, 0© B; ©0 B * ( SPACE ) 


2 i 

040 B , 040 B, 040 

B, 

0© 

B , ©4© 

B, 

( 

! ) 


3 i 

0A0 E, 0A0 B , 00 

B, 

©0 E 

/ ©0 E * 

c 

!! 

) 


4 ! 

©A© E/ ©E0 B j ©A© 

B, 

©E0 

B jp ©A© 

B jp 

c 

# 

) 

5 j 

040 B, ©E0 E, 0S0 

B, 

0E0 

B, ©40 

B, 

c 

% 

) 

6 ! 

0S0 B, 020 E, 040 

B, 

©80 

B, 020 

B / 

c 

% 

) 

7 ! 

©0 B , 0© B / 4© B / 

0A0 B , 

©A© B / 

C 

8c 

) 


8 1 

040 B , 040 E, 00 

B , 

©0 E 

00 E) 

C 

jp 

) 


S ! 

040 E, 0S0 B, 0S0 

B, 

©8© 

B jp © 4 © 

B, 

C 

LEFT PAREN ) 

10 ! 

040 B, 020 E, 020 

B, 

020 

B , 040 

B / 

c 

RIGHT PAREN ) 

11 I 

©0 B , 0A0 B, 04© 

B, 

©A© 

B, 00 B 

, ( 

% 

) 


12 ! 

00 B, 040 B, ©E0 

E, 

©4© 

B , 00 B 

, < 

+ 

) 


13 i 

©0 B, 0© E, 00 B , 

040 B, 

0S0 E, 

c 

r 

) 


14 i 

00 B, 0© B , 0E0 B 

00 B, 

00 B, 

c - 

) 



IS ! 

©© B t ©© B / ©© B , 

©© 

B , 

4© B, ( 

„ 

) 

— > 


+— 


— 

— 





©!( 

VGS-SMALL FONT CHARACTER 

SET 3 

BY 

5 

) 


11 

©0 E, ©20 B, 040 

B, 

0S0 

B, 00 B 

, ( 

/ 

) 


2 ! 

040 E, ,0A0 E, ©A© 

B, 

©A© 

E jp ©4© 

E, 

( 

00 

) 

3 i* 

040 B, 040 B, 040 

B / 

©4© 

B , ©4© 

B , 

C 

©1 

) 

4 ! 

©E© B , ©2© B / ©E© 

B, 

0S0 

Ejp ©E© 

E , 

( 

2 

) 

5 1 

©E© B jp ©2© B f ©6© 

E, 

© 2 © 

B / ©E© 

B, 

c 

3 

} 

6 ! 

0A0 B , ©A0 E, 0E0 

B, 

© 2 © 

Bjp © 2 © 

E, 

( 

4 

> 

7 I 

© E © B jp © 8 © E jp © C © 

B, 

©2© 

B / ©C© 

B, 

( 

5 

) 

8 1 

©E© B / ©8© B, ©E© 

B ■ 

0A0 

B , ©E© 

B, 

( 


) 

di ii 

0E0 E, 020 S, 040 

B , 

©4© 

Bj ©4© 

B , 

( 

7 

) 

i o: 

©E© * J5 j? ©A© B P ©E© 

B f 

0A0 

B jp © E © 

B, 

< 

8 

) 

i 1 \ 

© E 0 B jp © A €’ 3 jp 0 E © 

E jp 

© 2 © 

Bjp ©E© 

B, 

( 

S 

) 

■] ;z f 

00 B jj 04© E / 00 B 

jp © 4 © E 

, 0© B / 

( 

: 

) 


i 3 5 

F „ 'fi' CiO 

. 040 B 

» © 8 © B 

, ( 

i 

) 


1 4 j 

©20 E r 04© B ip 08© 

T? 

©4© 

B, ©2© 

B r 

t 

r 

) 

1 c" * 

00 S, 0E0 Fr 00 E 

f 0E0 E 

jp © © B f 

( 

= 

) 

-> 
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0 

( VGS- 

-SMALL FONT 

CHARACTER 

SET 3 

BY 5 ) 


1 

080 

B , 

040 

B, 

020 

B / 

040 

B / 

080 

B, C > 

) 

2 

. 0E0 

B, 

020 

B, 

©40 

B, 

00 B 


040 

B, ( ? 

) 

3 

0E0 

B, 

0A0 

B, 

0E0 

E, 

080 

B , 

0C0 

B, ( @ 

) 

4 

0E0 

B, 

©A© 

B t 

0E0 

B, 

0A0 

B, 

0A0 

B / ( A 

) 

5 

0E0 

B, 

0A0 

B / 

0C0 

B, 

0A0 

B, 

0E0 

B, < B 

) 

£ 

0E0 

E, 

080 

B , 

080 

B, 

080 

B, 

0E0 

B / C C 

) 

7 

0C0 

B, 

0A0 

E , 

0A0 

B, 

0A0 

B , 

0C0 

B , C D 

) 

8 

0E0 

E, 

080 

B, 

0C0 

B, 

080 

B , 

0E0 

B f < E 

) 

3 

0E0 

E, 

080 

E , 

0C0 

B, 

080 

E, 

080 

B , ( F 

) 

10 

0E0 

B, 

080 

E, 

0A0 

B, 

0A0 

B, 

0E0 

E, ( G 

) 

1 1 

0A0 

B, 

0A0 

B, 

0E0 

B, 

0A0 

B / 

0A0 

B , ( H 

) 

12 

0E0 

B, 

©40 

B, 

040 

B / 

040 

E, 

0E0 

Ej ( I 

) 

13 

020 

B, 

020 

B, 

020 

B / 

0A0 

B, 

0E0 

B, ( J 

) 

14 

0A0 

E, 

0A© S 

B, 

0C0 «*B / 

0A0. 

B, 

0 A© 

B, ( K 

) 

15 

H 

080 
h- 

B, 

.080 

B1 ock 

E, 

080 

302 

B, 

_ 

080 

B , 

"0E0 

E, ( L 

) 


0! 

( VGS- 

SMALL 

FONT CHARACTER 

SET 3 

BY ,5 

) 


1 ! 

0A0 

B, 

0E0 

B, 

0E0 

B, 

©A0 

B, 

0A0 

B, 

c 

M 

) 

Z ! 

0C0 

E, 

0A0 

E, 

0A© 

E, 

0A0 

B, 

0A0 

B, 

c 

N 

) 

3! 

0E0 

B, 

0A0 

E, 

0A0 

B, 

@A0 

b; 

0E0 

B, 

c 

0 

) 

4 ! 

0E0 

B, 

©A0 

B , 

0E© 

B, 

080 

B, 

080 

B, 

( 

p 

) 

5 ! 

0E0 

B / 

0A0 

B, 

0A0 

E, 

0E0 

B, 

02© 

B, 

c 

Q 

) 

£ ! 

©C0 

E, 

©A© 

B, 

0C0 

B, 

0A0 

B, 

0A0 

B, 

( 

R 

) 

7 i 

0E0 

B , 

08© 

B, 

0E0 

B, 

020 

B, 

0E0 

B, 

( 

S 

) 

8 ! 

©E0 

E , 

04© 

B, 

040 

E, 

040 

B, 

©40 

B / 

( 

i 

) 

9 ! 

0A0 

E / 

©A0 

B, 

0A0 

B, 

© A0 

B, 

©E© 

B , 

c 

U 

) 

i® \ 

©A© 

B, 

0A0 

B, 

0A0 

B, 

0A0 

B , 

@40 

B, 

( 

V 

) 

1 1 ! 

0A0 

B j- 

© A © 

E JF 

0E0 

B, 

0E© 

B, 

0 A© 

E, 

c 

w 

) 

12 ! 

0A0 

B, 

0A0 

B , 

©4© 

B, 

©A© 

E, 

0A0 

B, 

c 

X 

) 

13 ! 

©A© 

B , 

0A0 

B , 

@4© 

B, 

©4© 

B , 

@40 

B / 

( 

r 

) 

14 ! 

0E© 

E, 

020 

B, 

@4@ 

B, 

080 

B, 

©E0 

B , 

c 

Z 

) 

15 ! 

—* > 
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FONT CHARACTER 
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BY 

5 
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1 ! 

0C0 

E, 

080 

B / 

080 

B , 

080 

E, 

0C0 

B, 

c 

L 

) 

2 ! 

00 E 

9 

080 

E, 

040 E 

JP 

020 E 

9 

@0 B 

, ( 

BACK 

SLASH 

3 i 

060 

B , 

©20 

B / 

020 

B, 

020 

B, 

060 

B, 

c 

1 

) 

4 

040 

B j 

0E0 

B , 

040 

B, 

040 

B, 

040 

B, 

c 

a 

) 

5 i 

020 

B, 

@40 

E, 

0E0 

B, 

040 

B, 

020 

E, 

c 
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£ ! 

7 j 

BASE ! 

;S 













: 9 | 

'10 ! 
’ll ! 
12 i 
1 3 i 

14 j 

15 ! 
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0 1 ( 

system verbs ) 







1 I : 

l-B! DUP B@ 1- 

SWAP 

B! ; 

: l+B! 

DUP 

B@ 1 + 

SWAP B! ,* 

2 1 : 

S! SNAP ! j : SB! S 

WAP B! 

} 




3 1 { 

: V= } 0 VARIABLE { 

; } { 

: BV= 

} 0 

BVARI ABLE { ; > 

4 1 { 

: C= } CONSTANT 

{ 

J } { 

: F= } 

FORWARD { 

i } 

5 1 { 

: LABLE } DATA 

{ ; 

} 






GiCODE EIDI El, DI , NEXT 
7! { : DTC } DECIMAL EDIT { ; } 

8 j ; S 
3 ! 

10 ! 

11 I 

12 i 

13 ! 

14 : 

15 ! 

+-Block 305- 


0 ! ( BB sentrrg string routines DPCN CHKGMCNT ) HEX 

11: DF1CN 400 2800 828 A" DEPOSIT 1 COIN TO CONTINUE THIS GAME" 

! SPOST } 

\: DPI 2CN CNSkll E@ IF 300 2800 828 

! A" DEPOSIT 2 COINS TO CONTINUE THIS GAME" SPOST 
! ELSE DPI CN THEN } 

! : DPCN ( wait: For next coin ) 

1 DPICN CREDITS B2ER0 FF TWA IT FF TWA IT DP1CN CREDITS B® IF 
81 GAMEOVER EZERO ELSE LINN BZERO UPCRED BONE THEN CREDITS 1+B! , 

91: CHKGMCNT DF12CN C0 TWA IT DP12CN CREDITS B@ ; 

101: INSWAIT El BEGIN FF 0 DO LOOP 

111 14 INP 0F AND 0F <> IF DROP 1 INSOUT BONE THEN 
12! 1- DUP 0= END DROP DI ; 

131: YOU1ST 1A00 1000 828 A" YOU ARE UP 1ST" SPOST 0F00 3000 828 
141 A" BEAT ME FOR EXTRA INNING" SPOST 1F00 5000 828 
151 A" GOOD LUCK" SPOST ; —> 

+-Block 306- 

0 1 ( BB sentru sirring routines INSTRC ) 

11: INSTRC ( instructions ) 

2 I INSOUT EZERO BEGIN 

. 31 FLFILL 2300 1000 828 A" PITCH" SPOST 700 4000 828 
41 A" PRESS PITCH BUTTON TO START PITCH" SPOST 0F00 6000 828 
51 A" ROLLERBALL CONTROLS PITCH" SPOST 0C00 8000 828 
61 A" ROLLERBALL MOVES OUTFIELDERS" SPOST 

71 80 INSWAIT INSOUT B@ IF ELSE 

81 FLFILL 2500 1000 828 A" BAT" SPOST B00 4000 828 
3 \ ft" PRESS EAT BUTTON TO SWING BAT" SPOST 500 6000 828 
10? A r HOLD BUTTON DOWN TO ADVANCE RUNNERS" SPOST 

'1 1 i 60 INSWAIT INSOUT B® IF ELSE 

12! FLFILL 0A0O 2800 328 A" PRESS ANY BUTTON TO START GAME" SPOST 

13| 30 INSWAIT THEN THEN INSOUT B® END , 












